letin obt ≝ (o_basic_topology_of_o_basic_pair obp);
constructor 1;
[ apply (form bp);
- | apply (A obt);
- | apply (J obt);
- | apply (A_is_saturation obt);
- | apply (J_is_reduction obt);
- | apply (compatibility obt); ]
+ | apply (oA obt);
+ | apply (oJ obt);
+ | apply (oA_is_saturation obt);
+ | apply (oJ_is_reduction obt);
+ | apply (Ocompatibility obt); ]
qed.
definition continuous_relation_of_relation_pair:
letin ocr ≝ (o_continuous_relation_of_o_relation_pair ?? orp);
constructor 1;
[ apply (rp \sub \f);
- | apply (reduced ?? ocr);
- | apply (saturated ?? ocr); ]
+ | apply (Oreduced ?? ocr);
+ | apply (Osaturated ?? ocr); ]
qed.
\ No newline at end of file