X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fng_cic_content%2Fncic2astMatcher.ml;h=5acb8eb1349b5287361389dd49a03884b32a7a0b;hb=0d2bfb98d8343b4e6cefdb506a813b7cb5749630;hp=2ae782bdbd2de3684c67100a51f3460e9c3be574;hpb=8a660ee06d72cfee52c707bb1d8d8be3bab0d682;p=helm.git diff --git a/matita/components/ng_cic_content/ncic2astMatcher.ml b/matita/components/ng_cic_content/ncic2astMatcher.ml index 2ae782bdb..5acb8eb13 100644 --- a/matita/components/ng_cic_content/ncic2astMatcher.ml +++ b/matita/components/ng_cic_content/ncic2astMatcher.ml @@ -40,8 +40,6 @@ struct | NRef of NReference.reference | Appl of cic_mask_t list - let uri_of_term t = CicUtil.uri_of_term (Deannotate.deannotate_term t) - let mask_of_cic = function | NCic.Appl tl -> Appl (List.map (fun _ -> Blob) tl), tl | NCic.Const nref -> NRef nref, []