]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/software/matita/contribs/formal_topology/overlap/o-basic_pairs_to_o-basic_topologies.ma
nasty change in the lexer/parser:
[helm.git] / helm / software / matita / contribs / formal_topology / overlap / o-basic_pairs_to_o-basic_topologies.ma
index 1bf31881c29d11fc3b0b1ddb90d96908efd3e552..b745652569c9458b389903f2a220c93c03c3d6f9 100644 (file)
@@ -23,8 +23,8 @@ definition o_basic_topology_of_o_basic_pair: OBP → OBTop.
  intro t;
  constructor 1;
   [ apply (Oform t);
-  | apply (□_t ∘ Ext⎽t);
-  | apply (◊_t ∘ Rest⎽t);
+  | apply (□t ∘ Ext⎽t);
+  | apply (◊t ∘ Rest⎽t);
   | apply hide; intros 2; split; intro;
      [ change with ((⊩) \sup ⎻* ((⊩) \sup ⎻ U) ≤ (⊩) \sup ⎻* ((⊩) \sup ⎻ V));
        apply (. (#‡(lemma_10_4_a ?? (⊩) V)^-1));
@@ -38,7 +38,7 @@ definition o_basic_topology_of_o_basic_pair: OBP → OBTop.
           apply (. (or_prop2 : ?) ^ -1);
           apply oa_leq_refl; ]]
   | apply hide; intros 2; split; intro;
-     [ change with (◊_t ((⊩) \sup * U) ≤ ◊_t ((⊩) \sup * V));
+     [ change with (◊⎽t ((⊩) \sup * U) ≤ ◊⎽t ((⊩) \sup * V));
        apply (. ((lemma_10_4_b ?? (⊩) U)^-1)‡#);
        apply (f_image_monotone ?? (⊩) ? ((⊩)* V));
        apply f_star_image_monotone;
@@ -51,7 +51,7 @@ definition o_basic_topology_of_o_basic_pair: OBP → OBTop.
           apply oa_leq_refl; ]]
   | apply hide; intros;
     apply (.= (oa_overlap_sym' : ?));
-    change with ((◊_t ((⊩)* V) >< (⊩)⎻* ((⊩)⎻ U)) = (U >< (◊_t ((⊩)* V))));
+    change with ((◊⎽t ((⊩)* V) >< (⊩)⎻* ((⊩)⎻ U)) = (U >< (◊⎽t ((⊩)* V))));
     apply (.= (or_prop3 ?? (⊩) ((⊩)* V) ?));
     apply (.= #‡(lemma_10_3_a : ?));
     apply (.= (or_prop3 : ?)^-1);