]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/software/components/tactics/universe.ml
- new tactic applyP for use in the *P*rocedural script reconstruction
[helm.git] / helm / software / components / tactics / universe.ml
index c4e439efe34ca8ffa579b4e94a95e7ebd0066a70..f7c3932dc688abf1e5ca3c4acb0308d59b1d4a66 100644 (file)
@@ -162,7 +162,7 @@ let remove univ context term ty =
 
 let remove_uri univ uri =
   let term = CicUtil.term_of_uri uri in
-  let ty,_ = CicTypeChecker.type_of_aux' [] [] term CicUniv.empty_ugraph in
+  let ty,_ = CicTypeChecker.type_of_aux' [] [] term CicUniv.oblivion_ugraph in
     remove univ [] term ty