X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FRELATIONAL%2FNPlus%2Fdefs.ma;h=a335b26ed8a6c979d15b582612bae2332c18a62b;hb=7ea8b1445c01013b270607d2182d506702646bf2;hp=2bc2e8fe006716b2f9ff7d76e2f0738a8a6c94b9;hpb=b531c938515b0ea6cb92df2e8732c587e0bc026b;p=helm.git diff --git a/helm/software/matita/contribs/RELATIONAL/NPlus/defs.ma b/helm/software/matita/contribs/RELATIONAL/NPlus/defs.ma index 2bc2e8fe0..a335b26ed 100644 --- a/helm/software/matita/contribs/RELATIONAL/NPlus/defs.ma +++ b/helm/software/matita/contribs/RELATIONAL/NPlus/defs.ma @@ -15,7 +15,6 @@ set "baseuri" "cic:/matita/RELATIONAL/NPlus/defs". include "logic/equality.ma". - include "Nat/defs.ma". inductive NPlus (p:Nat): Nat \to Nat \to Prop \def @@ -23,9 +22,9 @@ inductive NPlus (p:Nat): Nat \to Nat \to Prop \def | nplus_succ_2: \forall q, r. NPlus p q r \to NPlus p (succ q) (succ r). (*CSC: the URI must disappear: there is a bug now *) -interpretation "natural plus (relational)" 'rel_plus x y z = +interpretation "natural plus predicate" 'rel_plus x y z = (cic:/matita/RELATIONAL/NPlus/defs/NPlus.ind#xpointer(1/1) x y z). -notation "hvbox(a break + b break == c)" +notation "hvbox(a break + b break == c)" non associative with precedence 95 for @{ 'rel_plus $a $b $c}.