(*
definition BTop_of_BP: functor1 BP BTop.
- lapply OR as F;
constructor 1;
[ apply basic_topology_of_basic_pair
| intros; constructor 1 [ apply continuous_relation_of_relation_pair; ]
| simplify; intro;
]
qed.
+
+lemma BBBB_faithful : failthful2 ?? VVV
+FIXME
*)
\ No newline at end of file