]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/software/matita/library/logic/cprop_connectives.ma
cicNotationUtil: in fresh_name_generator, "\eta" replaced with "eta", which is an...
[helm.git] / helm / software / matita / library / logic / cprop_connectives.ma
index 31cd9c576c236355b73e9335319c88c9b97d1c95..2a5af4406f5ec99fd9b3988e41eb6dc753c708bc 100644 (file)
@@ -75,11 +75,6 @@ interpretation "logical iff type1" 'iff1 x y = (Iff1 x y).
 
 inductive exT (A:Type) (P:A→CProp) : CProp ≝
   ex_introT: ∀w:A. P w → exT A P.
-  
-notation "\ll term 19 a, break term 19 b \gg" 
-with precedence 90 for @{'dependent_pair $a $b}.
-interpretation "dependent pair" 'dependent_pair a b = 
-  (ex_introT _ _ a b).
 
 interpretation "CProp exists" 'exists \eta.x = (exT _ x).
 
@@ -88,7 +83,6 @@ with precedence 90 for @{'dependent_pair $a $b}.
 interpretation "dependent pair" 'dependent_pair a b = 
   (ex_introT _ _ a b).
 
-
 definition pi1exT ≝ λA,P.λx:exT A P.match x with [ex_introT x _ ⇒ x].
 definition pi2exT ≝ 
   λA,P.λx:exT A P.match x return λx.P (pi1exT ?? x) with [ex_introT _ p ⇒ p].