From a5499688bd76def8de3d8e1089a49c7a08430903 Mon Sep 17 00:00:00 2001 From: Pierre-Marie Pédrot Date: Fri, 25 Nov 2016 14:54:40 +0100 Subject: Funind API using EConstr. --- plugins/funind/g_indfun.ml4 | 3 --- 1 file changed, 3 deletions(-) (limited to 'plugins/funind/g_indfun.ml4') diff --git a/plugins/funind/g_indfun.ml4 b/plugins/funind/g_indfun.ml4 index 560242bf2..27a892ca7 100644 --- a/plugins/funind/g_indfun.ml4 +++ b/plugins/funind/g_indfun.ml4 @@ -98,7 +98,6 @@ ARGUMENT EXTEND with_names TYPED AS intropattern_opt PRINTED BY pr_intro_as_pat END let functional_induction b c x pat = - let x = Option.map (Miscops.map_with_bindings EConstr.Unsafe.to_constr) x in Proofview.V82.tactic (functional_induction true c x (Option.map out_disjunctive pat)) @@ -110,7 +109,6 @@ TACTIC EXTEND newfunind | [c] -> c | c::cl -> EConstr.applist(c,cl) in - let c = EConstr.Unsafe.to_constr c in Extratactics.onSomeWithHoles (fun x -> functional_induction true c x pat) princl ] END (***** debug only ***) @@ -122,7 +120,6 @@ TACTIC EXTEND snewfunind | [c] -> c | c::cl -> EConstr.applist(c,cl) in - let c = EConstr.Unsafe.to_constr c in Extratactics.onSomeWithHoles (fun x -> functional_induction false c x pat) princl ] END -- cgit v1.2.3