X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fng_cic_content%2Finterpretations.ml;h=0c78e08f999f066ec25e609e6129c20884189ae5;hb=a9afd40d8d1b517a474afe7dcb77197831b1bd75;hp=f2e71fc21eb9e0037535dc5c579be4a94193878d;hpb=e368ff6b06dd1ae1ea337d66fa180e5393d5acb0;p=helm.git diff --git a/matita/components/ng_cic_content/interpretations.ml b/matita/components/ng_cic_content/interpretations.ml index f2e71fc21..0c78e08f9 100644 --- a/matita/components/ng_cic_content/interpretations.ml +++ b/matita/components/ng_cic_content/interpretations.ml @@ -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