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