X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fdama%2Fconstructive_connectives.ma;h=a0fb66dedf2fd671eacb057796976e5a41b7dd07;hb=1be6639bbfa31fcbb49f0017016c78ebafe10453;hp=461f90e6dd66ef507029de1e0494ecb0859097c0;hpb=b473a681dfab815f882bc646efc2b218f1957db8;p=helm.git diff --git a/matita/dama/constructive_connectives.ma b/matita/dama/constructive_connectives.ma index 461f90e6d..a0fb66ded 100644 --- a/matita/dama/constructive_connectives.ma +++ b/matita/dama/constructive_connectives.ma @@ -26,9 +26,9 @@ inductive ex (A:Type) (P:A→Prop) : Type \def notation < "hvbox(Σ ident i opt (: ty) break . p)" right associative with precedence 20 -for @{ 'exists ${default +for @{ 'sigma ${default @{\lambda ${ident i} : $ty. $p)} @{\lambda ${ident i} . $p}}}. interpretation "constructive exists" 'sigma \eta.x = - (cic:/matita/constructive_connectives/ex.ind#xpointer(1/1) _ x). \ No newline at end of file + (cic:/matita/constructive_connectives/ex.ind#xpointer(1/1) _ x).