In the case type_of constructor with expected type T, T is now put in whd to

[helm.git] / matita / components / ng_cic_content / interpretations.ml

diff --git a/matita/components/ng_cic_content/interpretations.ml b/matita/components/ng_cic_content/interpretations.ml
index 7e175193ba5493b3da527fd71c32af6490c49f37..0c78e08f999f066ec25e609e6129c20884189ae5 100644 (file)
--- a/matita/components/ng_cic_content/interpretations.ml
+++ b/matita/components/ng_cic_content/interpretations.ml
@@ -63,7 +63,7 @@ let initial_db = {
    pattern32_matrix = [];
    level2_patterns32 = IntMap.empty;
    interpretations = StringMap.empty;
-   compiled32 = lazy (fun _ -> assert false)
+   compiled32 = lazy (Ncic2astMatcher.Matcher32.compiler [])
 }
 
 class type g_status =
@@ -206,7 +206,7 @@ let instantiate_appl_pattern
 
 let destroy_nat =
   let is_nat_URI = NUri.eq (NUri.uri_of_string
-  "cic:/matita/ng/arithmetics/nat/nat.ind") in
+  "cic:/matita/arithmetics/nat/nat.ind") in
   let is_zero = function
     | NCic.Const (NReference.Ref (uri, NReference.Con (0, 1, 0))) when
        is_nat_URI uri -> true