From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Thu, 8 Jan 2009 12:05:34 +0000 (+0000)
Subject: some more if/fi conversion due to the new . binding
X-Git-Tag: make_still_working~4268
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;ds=sidebyside;h=b000797a7e07f511926a19d947feae90406f6c89;p=helm.git

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 d0e4ffd4a..9d2818727 100644
--- 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 324e51df7..2ee78912a 100644
--- 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;
   | 
   ]