]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/lib/re/re.ma
Closed some daemons
[helm.git] / matita / matita / lib / re / re.ma
index af0e921a6b9a1be5cbabe311860e2fb8d7d09c8b..234d522ae176dde98579f39ac9e6ac09bb11aa32 100644 (file)
@@ -128,8 +128,7 @@ let rec forget (S: DeqSet) (l : pitem S) on l: re S ≝
   | po E1 E2 ⇒ (forget ? E1) + (forget ? E2)
   | pk E ⇒ (forget ? E)^* ].
  
-(* notation < "|term 19 e|" non associative with precedence 70 for @{'forget $e}.*)
-interpretation "forget" 'norm a = (forget ? a).
+interpretation "forget" 'card a = (forget ? a).
 
 lemma erase_dot : ∀S.∀e1,e2:pitem S. |e1 · e2| = c ? (|e1|) (|e2|).
 // qed.