diff options
| author | Emilio Jesus Gallego Arias | 2020-05-16 19:47:40 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2020-05-16 19:47:40 +0200 |
| commit | d81bb4085ccad294cb1edd59ed5e0f9fd4d3b23a (patch) | |
| tree | 74298e7615a65a2ce83cb59c25755401f829bf71 /plugins | |
| parent | e35949c47a75706212250e7936342e49c8fd48d6 (diff) | |
| parent | e83a92d8855f1b2f99f2960454898985593d4cb6 (diff) | |
Merge PR #12326: Fix #11761: Functional Induction throws unrecoverable error.
Reviewed-by: ejgallego
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/funind/g_indfun.mlg | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/plugins/funind/g_indfun.mlg b/plugins/funind/g_indfun.mlg index 68e1087b74..a1094e39a4 100644 --- a/plugins/funind/g_indfun.mlg +++ b/plugins/funind/g_indfun.mlg @@ -18,6 +18,7 @@ open Indfun_common open Indfun open Stdarg open Tacarg +open Extraargs open Tactypes open Pcoq.Prim open Pcoq.Constr @@ -96,14 +97,12 @@ let functional_induction b c x pat = } TACTIC EXTEND newfunind -| ["functional" "induction" ne_constr_list(cl) fun_ind_using(princl) with_names(pat)] -> - { - let c = match cl with - | [] -> assert false - | [c] -> c - | c::cl -> EConstr.applist(c,cl) - in - Extratactics.onSomeWithHoles (fun x -> functional_induction true c x pat) princl } +| ["functional" "induction" lconstr(c) fun_ind_using(princl) with_names(pat)] -> + { + (Extratactics.onSomeWithHoles + (fun x -> functional_induction true c x pat) princl) + } + END (***** debug only ***) TACTIC EXTEND snewfunind |