- disk dumping of ex-lexicon commands almost implemented

[helm.git] / matita / components / content_pres / cicNotationParser.ml

diff --git a/matita/components/content_pres/cicNotationParser.ml b/matita/components/content_pres/cicNotationParser.ml
index c229533140e828c9cd912a4591cf62b79c9ec532..1f83a64d57d9b6ff0bc3e09f46d4156d4f0e4c3d 100644 (file)
--- a/matita/components/content_pres/cicNotationParser.ml
+++ b/matita/components/content_pres/cicNotationParser.ml
@@ -48,6 +48,9 @@ type ('a,'b,'c,'d) grammars = {
 
 type checked_l1_pattern = CL1P of NotationPt.term * int
 
+let refresh_uri_in_checked_l1_pattern (CL1P (t,n)) =
+ CL1P (NotationUtil.refresh_uri_in_term t, n)
+
 type binding =
   | NoBinding
   | Binding of string * Env.value_type