DEFINITION xinduction()
TYPE =
       A:Set.t:A.P:AProp.(x:A.(eq A t x)(P x))(P t)
BODY =
Show proof