fact: Definition corec_contractive_noinv I A B (M:family I B) (P:A->Prop) (F:(A->B)->(A->B)) := forall i x f1 f2, P x -> (forall y j, P y -> family_r M j i -> family_sim M j (f1 y) (f2 y)) -> family_sim M i (F f1 x) (F f2 x).
imports: TLC(LibTactics LibLogic LibReflect LibEpsilon LibInt LibProd LibSum LibOperation LibRelation LibWf LibOrder LibMin)