diff options
| author | Pierre-Marie Pédrot | 2020-08-24 12:36:07 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-08-24 12:36:07 +0200 |
| commit | 80aca0417e2ed8530b10185fda1cf8a9673e196d (patch) | |
| tree | d6b831fa385439345fa5e1a895d9a79de27c6e56 /tactics | |
| parent | 98734a2d5ad419b99777dfd546ef482b5986cfda (diff) | |
| parent | 68a18c80332bace9064e202d13f01c880cc114ec (diff) | |
Merge PR #12816: Fixes #12787: anomaly of tactic injection in the presence of artificial dependencies disappearing by reduction
Reviewed-by: ppedrot
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/equality.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/tactics/equality.ml b/tactics/equality.ml index f1326a51a9..b4def7bb51 100644 --- a/tactics/equality.ml +++ b/tactics/equality.ml @@ -1134,6 +1134,7 @@ let make_tuple env sigma (rterm,rty) lind = assert (not (noccurn sigma lind rty)); let sigdata = find_sigma_data env (get_sort_of env sigma rty) in let sigma, a = type_of ~refresh:true env sigma (mkRel lind) in + let a = simpl env sigma a in let na = Context.Rel.Declaration.get_annot (lookup_rel lind env) in (* We move [lind] to [1] and lift other rels > [lind] by 1 *) let rty = lift (1-lind) (liftn lind (lind+1) rty) in |