X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2Fassembly%2Ffreescale%2Fextra.ma;h=bc76c4d6b7f0addf954b61fa572c3ad3657d803e;hb=21f1fb39b5e1187ef87387f20522e60abe4f7c19;hp=94f4a47547eebf1a1048c94474c14f35e4e90625;hpb=661ffd4d7c77fce52fb2f2d96f1737be424af3f1;p=helm.git diff --git a/helm/software/matita/contribs/assembly/freescale/extra.ma b/helm/software/matita/contribs/assembly/freescale/extra.ma index 94f4a4754..bc76c4d6b 100644 --- a/helm/software/matita/contribs/assembly/freescale/extra.ma +++ b/helm/software/matita/contribs/assembly/freescale/extra.ma @@ -57,26 +57,22 @@ definition eq_bool ≝ (* \ominus *) notation "hvbox(⊖ a)" non associative with precedence 36 for @{ 'not_bool $a }. -interpretation "not_bool" 'not_bool x = - (cic:/matita/freescale/extra/not_bool.con x). +interpretation "not_bool" 'not_bool x = (not_bool x). (* \otimes *) notation "hvbox(a break ⊗ b)" left associative with precedence 35 for @{ 'and_bool $a $b }. -interpretation "and_bool" 'and_bool x y = - (cic:/matita/freescale/extra/and_bool.con x y). +interpretation "and_bool" 'and_bool x y = (and_bool x y). (* \oplus *) notation "hvbox(a break ⊕ b)" left associative with precedence 34 for @{ 'or_bool $a $b }. -interpretation "or_bool" 'or_bool x y = - (cic:/matita/freescale/extra/or_bool.con x y). +interpretation "or_bool" 'or_bool x y = (or_bool x y). (* \odot *) notation "hvbox(a break ⊙ b)" left associative with precedence 33 for @{ 'xor_bool $a $b }. -interpretation "xor_bool" 'xor_bool x y = - (cic:/matita/freescale/extra/xor_bool.con x y). +interpretation "xor_bool" 'xor_bool x y = (xor_bool x y). (* ProdT e' gia' definito, aggiungo Prod3T e Prod4T e Prod5T *)