| intros;
apply sym1;
change in match ((s ∘ r) U) with (s (r U));
- apply (.= (Oreduced : ?)\sup -1);
+ apply (.= (Oreduced : ?)^-1);
[ apply (.= (Oreduced :?)); [ assumption | apply refl1 ]
| apply refl1]
| intros;
apply sym1;
change in match ((s ∘ r)⎻* U) with (s⎻* (r⎻* U));
- apply (.= (Osaturated : ?)\sup -1);
+ apply (.= (Osaturated : ?)^-1);
[ apply (.= (Osaturated : ?)); [ assumption | apply refl1 ]
| apply refl1]]
qed.