X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2Fformal_topology%2Foverlap%2Fo-formal_topologies.ma;h=59221c7ba7944e21102347d1e85eda9aa687398a;hb=3e5c359c75874748cfed8a9046031b62396e0e6d;hp=e750dcc900f62e67a2773af66796401d5570022a;hpb=cb98bd7054893edee16aadd6741ec5210b04afbc;p=helm.git diff --git a/helm/software/matita/contribs/formal_topology/overlap/o-formal_topologies.ma b/helm/software/matita/contribs/formal_topology/overlap/o-formal_topologies.ma index e750dcc90..59221c7ba 100644 --- a/helm/software/matita/contribs/formal_topology/overlap/o-formal_topologies.ma +++ b/helm/software/matita/contribs/formal_topology/overlap/o-formal_topologies.ma @@ -24,7 +24,7 @@ definition downarrow: ∀S:BTop. unary_morphism (Ω \sup S) (Ω \sup S). try assumption; [ apply (. #‡H) | apply (. #‡H \sup -1)] assumption] qed. -interpretation "downarrow" 'downarrow a = (fun_1 __ (downarrow _) a). +interpretation "downarrow" 'downarrow a = (fun_1 ?? (downarrow ?) a). definition ffintersects: ∀S:BTop. binary_morphism1 (Ω \sup S) (Ω \sup S) (Ω \sup S). intros; constructor 1; @@ -32,12 +32,12 @@ definition ffintersects: ∀S:BTop. binary_morphism1 (Ω \sup S) (Ω \sup S) (Ω | intros; apply (.= (†H)‡(†H1)); apply refl1] qed. -interpretation "ffintersects" 'fintersects U V = (fun1 ___ (ffintersects _) U V). +interpretation "ffintersects" 'fintersects U V = (fun1 ??? (ffintersects ?) U V). *) record formal_topology: Type ≝ - { bt:> BTop; - converges: ∀U,V: bt. A ? (U ↓ V) = (A ? U ∧ A ? V) + { bt:> OBTop; + converges: ∀U,V: bt. oA bt (U ↓ V) = (oA ? U ∧ oA ? V) }. (* @@ -48,7 +48,7 @@ definition ffintersects': ∀S:BTop. binary_morphism1 S S (Ω \sup S). | intros; apply (.= (†H)‡(†H1)); apply refl1] qed. -interpretation "ffintersects'" 'fintersects U V = (fun1 ___ (ffintersects' _) U V). +interpretation "ffintersects'" 'fintersects U V = (fun1 ??? (ffintersects' ?) U V). *) record formal_map (S,T: formal_topology) : Type ≝ { cr:> continuous_relation_setoid S T;