fact: Definition valmut2_contractive_noinv I A1 A2 (M:family I (A1*A2)) (F1:A1->A2->A1) (F2:A1->A2->A2) := forall i x1 x2 y1 y2, (forall j, family_r M j i -> family_sim M j (x1,x2) (y1,y2)) -> family_sim M i (F1 x1 x2, F2 x1 x2) (F1 y1 y2, F2 y1 y2).
imports: TLC(LibTactics LibLogic LibReflect LibEpsilon LibInt LibProd LibSum LibOperation LibRelation LibWf LibOrder LibMin)