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