X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fng_tactics%2Fcontinuationals.ml;h=b1087713009670ef9bcbedcfe8f1cea40942363c;hb=489639a3c319d0349a9c864fd0eeaf659daa3d3f;hp=714dad533c46d3f6212d6660effe677451d6cf29;hpb=0fde70bd19b8fdfa72b807b9713a02ad1bd91b5b;p=helm.git diff --git a/matita/components/ng_tactics/continuationals.ml b/matita/components/ng_tactics/continuationals.ml index 714dad533..b10877130 100644 --- a/matita/components/ng_tactics/continuationals.ml +++ b/matita/components/ng_tactics/continuationals.ml @@ -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 ]