X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2Flibrary%2Fdatatypes%2Fbool.ma;h=cac5ebbe97c2fdad3b421bd98d522c0525c4e413;hb=7bbce6bc163892cfd99cfcda65db42001b86789f;hp=8267aa7f63fcb692311dc916f8f325471805952d;hpb=3eff4cc36820df9faddb3cb16390717851db499c;p=helm.git diff --git a/helm/matita/library/datatypes/bool.ma b/helm/matita/library/datatypes/bool.ma index 8267aa7f6..cac5ebbe9 100644 --- a/helm/matita/library/datatypes/bool.ma +++ b/helm/matita/library/datatypes/bool.ma @@ -24,6 +24,7 @@ definition notb : bool \to bool \def [ true \Rightarrow false | false \Rightarrow true ]. +(*CSC: the URI must disappear: there is a bug now *) interpretation "boolean not" 'not x = (cic:/matita/datatypes/bool/notb.con x). definition andb : bool \to bool \to bool\def @@ -33,6 +34,7 @@ definition andb : bool \to bool \to bool\def match b2 with [true \Rightarrow true | false \Rightarrow false] | false \Rightarrow false ]. +(*CSC: the URI must disappear: there is a bug now *) interpretation "boolean and" 'and x y = (cic:/matita/datatypes/bool/andb.con x y). definition orb : bool \to bool \to bool\def @@ -42,6 +44,7 @@ definition orb : bool \to bool \to bool\def match b2 with [true \Rightarrow true | false \Rightarrow false] | false \Rightarrow false ]. +(*CSC: the URI must disappear: there is a bug now *) interpretation "boolean or" 'or x y = (cic:/matita/datatypes/bool/orb.con x y). definition if_then_else : bool \to Prop \to Prop \to Prop \def