intros (o1 o2 o3 r s); constructor 1;
[ apply (s ∘ r);
| intros;
- apply sym1;
+ apply sym1;
change in match ((s ∘ r) U) with (s (r U));
- (*<BAD>*) unfold FunClass_1_OF_Type_OF_setoid2;
+ (*<BAD>*) unfold FunClass_1_OF_Type_OF_setoid21;
unfold objs2_OF_basic_topology1; unfold hint;
letin reduced := reduced; clearbody reduced;
unfold uncurry_arrows in reduced ⊢ %; (*</BAD>*)