X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Flibrary%2Fdemo%2Frealisability.ma;h=d1b569c4075ddc7abf362856eb683840b8e35d74;hb=8575eae6782c7907956d47e23a2fbca9058c5ae7;hp=0de10940ad64854bb9e716800bdbbdf8d588d80a;hpb=dcb1f00a9377a496b65d34f77a9c860b506df6c5;p=helm.git diff --git a/helm/software/matita/library/demo/realisability.ma b/helm/software/matita/library/demo/realisability.ma index 0de10940a..d1b569c40 100644 --- a/helm/software/matita/library/demo/realisability.ma +++ b/helm/software/matita/library/demo/realisability.ma @@ -12,8 +12,6 @@ (* *) (**************************************************************************) -set "baseuri" "cic:/matita/demo/realisability/". - include "logic/connectives.ma". include "datatypes/constructors.ma". @@ -59,7 +57,7 @@ definition pi2 ≝ match s return λs.P (pi1 ? ? s) with [ sigma_intro _ p ⇒ p]. -notation "hvbox(Σ ident i opt (: ty) break . p)" +notation "hvbox(\Sigma ident i opt (: ty) break . p)" right associative with precedence 20 for @{ 'sigma ${default @{\lambda ${ident i} : $ty. $p}