some more if/fi conversion due to the new . binding

diff --git a/helm/software/matita/contribs/formal_topology/overlap/basic_pairs.ma b/helm/software/matita/contribs/formal_topology/overlap/basic_pairs.ma
index d0e4ffd4a67607650efe5cbc7127fc1dbc333b2d..9d2818727ed7e323b5690f67f89b0c436fd0c617 100644 (file)
--- a/helm/software/matita/contribs/formal_topology/overlap/basic_pairs.ma
+++ b/helm/software/matita/contribs/formal_topology/overlap/basic_pairs.ma
@@ -158,8 +158,8 @@ definition fintersects: ∀o: BP. binary_morphism1 (form o) (form o) (Ω \sup (f
   [ apply (λa,b: form o.{c | BPext o c ⊆ BPext o a ∩ BPext o b });
     intros; simplify; apply (.= (†e)‡#); apply refl1
   | intros; split; simplify; intros;
-     [ apply (. #‡((†e)‡(†e1))); assumption
-     | apply (. #‡((†e\sup -1)‡(†e1\sup -1))); assumption]]
+     [ apply (. #‡((†e^-1)‡(†e1^-1))); assumption
+     | apply (. #‡((†e)‡(†e1))); assumption]]
 qed.
 
 interpretation "fintersects" 'fintersects U V = (fun21 ___ (fintersects _) U V).
@@ -170,8 +170,8 @@ definition fintersectsS:
   [ apply (λo: basic_pair.λa,b: Ω \sup (form o).{c | BPext o c ⊆ BPextS o a ∩ BPextS o b });
     intros; simplify; apply (.= (†e)‡#); apply refl1
   | intros; split; simplify; intros;
-     [ apply (. #‡((†e)‡(†e1))); assumption
-     | apply (. #‡((†e\sup -1)‡(†e1\sup -1))); assumption]]
+     [ apply (. #‡((†e^-1)‡(†e1^-1))); assumption
+     | apply (. #‡((†e)‡(†e1))); assumption]]
 qed.
 
 interpretation "fintersectsS" 'fintersects U V = (fun21 ___ (fintersectsS _) U V).
@@ -180,8 +180,8 @@ definition relS: ∀o: BP. binary_morphism1 (concr o) (Ω \sup (form o)) CPROP.
  intros (o); constructor 1;
   [ apply (λx:concr o.λS: Ω \sup (form o).∃y:carr (form o).y ∈ S ∧ x ⊩ y);
   | intros; split; intros; cases e2; exists [1,3: apply w]
-     [ apply (. (#‡e1)‡(e‡#)); assumption
-     | apply (. (#‡e1 \sup -1)‡(e \sup -1‡#)); assumption]]
+     [ apply (. (#‡e1^-1)‡(e^-1‡#)); assumption
+     | apply (. (#‡e1)‡(e‡#)); assumption]]
 qed.
 
 interpretation "basic pair relation for subsets" 'Vdash2 x y = (fun21 (concr _) __ (relS _) x y).

diff --git a/helm/software/matita/contribs/formal_topology/overlap/o-basic_pairs_to_o-basic_topologies.ma b/helm/software/matita/contribs/formal_topology/overlap/o-basic_pairs_to_o-basic_topologies.ma
index 324e51df7a2fcc651b0af478255db26f1364ab6a..2ee78912afa42af75a8874e3244e5b43090a435b 100644 (file)
--- a/helm/software/matita/contribs/formal_topology/overlap/o-basic_pairs_to_o-basic_topologies.ma
+++ b/helm/software/matita/contribs/formal_topology/overlap/o-basic_pairs_to_o-basic_topologies.ma
@@ -18,7 +18,7 @@ include "o-basic_topologies.ma".
 lemma pippo: ∀S:OA.∀p,q,r:S. p ≤ q → p >< r → q >< r.
  intros;
  cut (r = binary_meet ? r r); (* la notazione non va ??? *)
-  [ apply (. (#‡Hcut) ^ -1);
+  [ apply (. (#‡Hcut));
     apply oa_overlap_preservers_meet;
   | 
   ]