fact: Definition rec_contractive_noinv A B (E:binary B) (P:A->Prop) (F:(A->B)->(A->B)) (R:binary A) := forall f1 f2 x, P x -> (forall y, P y -> R y x -> E (f1 y) (f2 y)) -> E (F f1 x) (F f2 x).
imports: TLC(LibTactics LibLogic LibReflect LibEpsilon LibInt LibProd LibSum LibOperation LibRelation LibWf LibOrder LibMin)