aboutsummaryrefslogtreecommitdiff
path: root/plugins/funind/gen_principle.ml
diff options
context:
space:
mode:
authorEmilio Jesus Gallego Arias2019-07-17 15:32:57 +0200
committerEmilio Jesus Gallego Arias2019-07-31 11:13:04 +0200
commitce22c1cb3bca8381d9b0ebfef2fbf27e92418b0c (patch)
treead8845c4bca61bf752c597574d6df5ab352fbd94 /plugins/funind/gen_principle.ml
parent105269d6799356eb52f289e191217b153c3bdade (diff)
[funind] Move common `make_eq` to funind_common.
Diffstat (limited to 'plugins/funind/gen_principle.ml')
-rw-r--r--plugins/funind/gen_principle.ml4
1 files changed, 0 insertions, 4 deletions
diff --git a/plugins/funind/gen_principle.ml b/plugins/funind/gen_principle.ml
index a6c5e63ecf..72975d6871 100644
--- a/plugins/funind/gen_principle.ml
+++ b/plugins/funind/gen_principle.ml
@@ -15,10 +15,6 @@ open Indfun_common
module RelDecl = Context.Rel.Declaration
-let make_eq () =
- try EConstr.of_constr (UnivGen.constr_of_monomorphic_global (Coqlib.lib_ref "core.eq.type"))
- with _ -> assert false
-
(* Move to common *)
let observe strm =
if do_observe ()