include "o-concrete_spaces.ma".
include "basic_pairs_to_o-basic_pairs.ma".
+(*
(* Qui, per fare le cose per bene, ci serve la nozione di funtore categorico *)
definition o_concrete_space_of_concrete_space: cic:/matita/formal_topology/concrete_spaces/concrete_space.ind#xpointer(1/1) → concrete_space.
intro;
apply (.= (orelation_of_relation_preserves_equality ???? (commute ?? r)));
apply (orelation_of_relation_preserves_composition ?? (form BP2) (rel BP1) ?); ]
qed.
+
+*)
\ No newline at end of file