X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Flibrary%2Fdatatypes%2Fbool.ma;h=da04dd381db07f245b89c3936babe40c4b192dbd;hb=4dc47c9675ffd5fa50296ffaa9b5997501518c98;hp=c9a86165a24f1aaea48b235d4f5b140df29a97db;hpb=ffdd3ddd6ce10a5fa0729ab407647bd46c44b9d8;p=helm.git diff --git a/helm/software/matita/library/datatypes/bool.ma b/helm/software/matita/library/datatypes/bool.ma index c9a86165a..da04dd381 100644 --- a/helm/software/matita/library/datatypes/bool.ma +++ b/helm/software/matita/library/datatypes/bool.ma @@ -66,8 +66,7 @@ apply eq_f. assumption. qed. -(*CSC: the URI must disappear: there is a bug now *) -interpretation "boolean not" 'not x = (cic:/matita/datatypes/bool/notb.con x). +interpretation "boolean not" 'not x = (notb x). definition andb : bool \to bool \to bool\def \lambda b1,b2:bool. @@ -75,8 +74,7 @@ definition andb : bool \to bool \to bool\def [ true \Rightarrow b2 | 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). +interpretation "boolean and" 'and x y = (andb x y). theorem andb_elim: \forall b1,b2:bool. \forall P:bool \to Prop. match b1 with @@ -124,8 +122,7 @@ match b1 with intros 3.elim b1.exact H. exact H. qed. -(*CSC: the URI must disappear: there is a bug now *) -interpretation "boolean or" 'or x y = (cic:/matita/datatypes/bool/orb.con x y). +interpretation "boolean or" 'or x y = (orb x y). definition if_then_else : bool \to Prop \to Prop \to Prop \def \lambda b:bool.\lambda P,Q:Prop.