DEFINITION well_founded()
TYPE =
       ΠA:Set.(AAProp)Prop
BODY =
λA:Set.λR:AAProp.a:A.(Acc A R a)