]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/components/ng_tactics/continuationals.ml
Cic.term and Cic.obj unused!
[helm.git] / matita / components / ng_tactics / continuationals.ml
index 714dad533c46d3f6212d6660effe677451d6cf29..b1087713009670ef9bcbedcfe8f1cea40942363c 100644 (file)
@@ -114,10 +114,6 @@ struct
     | [ [], [], [], `NoTag ] -> true
     | _ -> false
 
-  let of_metasenv metasenv =
-    let goals = List.map (fun (g, _, _) -> g) metasenv in
-    [ zero_pos goals, [], [], `NoTag ]
-  
   let of_nmetasenv metasenv =
     let goals = List.map (fun (g, _) -> g) metasenv in
     [ zero_pos goals, [], [], `NoTag ]