diff options
Diffstat (limited to 'contrib/funind')
| -rw-r--r-- | contrib/funind/g_indfun.ml4 | 2 | ||||
| -rw-r--r-- | contrib/funind/indfun.ml | 3 |
2 files changed, 3 insertions, 2 deletions
diff --git a/contrib/funind/g_indfun.ml4 b/contrib/funind/g_indfun.ml4 index 71f483fb6..dae76f2dd 100644 --- a/contrib/funind/g_indfun.ml4 +++ b/contrib/funind/g_indfun.ml4 @@ -317,7 +317,7 @@ let mkEq typ c1 c2 = let poseq_unsafe idunsafe cstr gl = let typ = Tacmach.pf_type_of gl cstr in tclTHEN - (Tactics.letin_tac true (Name idunsafe) cstr allClauses) + (Tactics.letin_tac None (Name idunsafe) cstr allClauses) (tclTHENFIRST (Tactics.assert_as true IntroAnonymous (mkEq typ (mkVar idunsafe) cstr)) Tactics.reflexivity) diff --git a/contrib/funind/indfun.ml b/contrib/funind/indfun.ml index a071add63..a6cbb3211 100644 --- a/contrib/funind/indfun.ml +++ b/contrib/funind/indfun.ml @@ -120,7 +120,8 @@ let functional_induction with_clean c princl pat = princ_infos args_as_induction_constr princ' - pat) + pat + None) subst_and_reduce g |