fact: Definition gonthier : A --> B := Build_partial (fun x => let f := epsilon (fun f:A->B => exists D, D x /\ partial_fixed_point E F (Build_partial f D)) in f x) (fun x => True).
imports: TLC(LibTactics LibLogic LibReflect LibEpsilon LibInt LibProd LibSum LibOperation LibRelation LibWf LibOrder LibMin)