]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/matita/library/nat/plus.ma
More notation (up to where the open bugs allow me to put it without adding
[helm.git] / helm / matita / library / nat / plus.ma
index 6067ebcdcd6b87ffde1fe7bce0059627e6723fb7..1c145dd6141cea519fd99f7c681a179159a72346 100644 (file)
@@ -21,8 +21,8 @@ let rec plus n m \def
  [ O \Rightarrow m
  | (S p) \Rightarrow S (plus p m) ].
 
+(*CSC: the URI must disappear: there is a bug now *)
 interpretation "natural plus" 'plus x y = (cic:/matita/nat/plus/plus.con x y).
-alias symbol "plus" (instance 0) = "natural plus".
 
 theorem plus_n_O: \forall n:nat. n = n+O.
 intros.elim n.