added the support for the "Locate Inductive Principles" query

[helm.git] / helm / ocaml / mathql_generator / mQGUtil.ml

diff --git a/helm/ocaml/mathql_generator/mQGUtil.ml b/helm/ocaml/mathql_generator/mQGUtil.ml
index a7a6bc6a49ea01e378f1cfcaa754c9163d15c530..36dd0653c67f83256c4276dc8b8540798739fabe 100644 (file)
--- a/helm/ocaml/mathql_generator/mQGUtil.ml
+++ b/helm/ocaml/mathql_generator/mQGUtil.ml
@@ -142,8 +142,3 @@ let set_full_position pos depth = match pos with
 let set_main_position pos depth = match pos with
    | `MainHypothesis _ -> `MainHypothesis depth
    | `MainConclusion _ -> `MainConclusion depth
-
-let universe_for_search_pattern =
-   [T.MainHypothesis; T.InHypothesis; T.MainConclusion; T.InConclusion]
-   
-let universe_for_match_conclusion = [T.MainConclusion; T.InConclusion]