diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2017-04-28 11:25:29 +0200 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2017-04-28 11:25:29 +0200 |
commit | 66a68a4329ce199f25184ba8b2d98b4679e7ddae (patch) | |
tree | ce90c93341c58e82813da8b1a567ce6a3f3ed424 /tactics | |
parent | 0a255f51809e8d29a7239bfbd9fe57a8b2b41705 (diff) | |
parent | 2ddc9d12bd4616f10245c40bc0c87ae548911809 (diff) |
Merge PR#531: Fixing bug #5420 and many similar bugs due to the presence of let-ins
Diffstat (limited to 'tactics')
-rw-r--r-- | tactics/tactics.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index 9c2a1d850..4173f8734 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -512,6 +512,9 @@ let rec check_mutind env sigma k cl = match EConstr.kind sigma (strip_outer_cast else let open Context.Rel.Declaration in check_mutind (push_rel (LocalAssum (na, c1)) env) sigma (pred k) b +| LetIn (na, c1, t, b) -> + let open Context.Rel.Declaration in + check_mutind (push_rel (LocalDef (na, c1, t)) env) sigma k b | _ -> error "Not enough products." (* Refine as a fixpoint *) |