fact: Definition mutualize2 A1 A2 (F1:A1->A2->A1) (F2:A1->A2->A2) : (A1*A2)->(A1*A2) := fun (p:A1*A2) => let (x1,x2) := p in (F1 x1 x2, F2 x1 x2).
imports: TLC(LibTactics LibLogic LibReflect LibEpsilon LibInt LibProd LibSum LibOperation LibRelation LibWf LibOrder LibMin)