X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FLOGIC%2FPRed%2Fdefs.ma;h=bee77f1ede68af5d01e99ce4463eedaa7235c2ab;hb=3bfc56cd9b5afe52c3abfbef886ce82efa3bb3a3;hp=51aaa94b24130503cd9aa6aa5ab283faa8ce1f08;hpb=72621f94886f59b8ff65f2bb7388f67308a2d959;p=helm.git diff --git a/helm/software/matita/contribs/LOGIC/PRed/defs.ma b/helm/software/matita/contribs/LOGIC/PRed/defs.ma index 51aaa94b2..bee77f1ed 100644 --- a/helm/software/matita/contribs/LOGIC/PRed/defs.ma +++ b/helm/software/matita/contribs/LOGIC/PRed/defs.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -set "baseuri" "cic:/matita/LOGIC/PRed/defs". + (* SINGLE STEP PARALLEL REDUCTION For cut elimination @@ -57,3 +57,7 @@ interpretation 'parred3 x1 y1 z1 x2 y2 z2 = (cic:/matita/LOGIC/PRed/defs/PRed.ind#xpointer(1/1) x1 y1 z1 x2 y2 z2) . + +notation "hvbox([a1,b1,c1] break => [a2,b2,c2])" + non associative with precedence 45 +for @{ 'parred3 $a1 $b1 $c1 $a2 $b2 $c2 }.