diff options
| author | Pierre-Marie Pédrot | 2020-04-21 12:17:22 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-04-21 12:17:22 +0200 |
| commit | c3bfeb5ab366de223f2eec48c6a4ab18e9b4a4ea (patch) | |
| tree | 6013ba9e2c884911cd73d50287015c66e30f20d8 /tactics | |
| parent | 07c746c1bc54109db02f26b23cceee3a7fdf9992 (diff) | |
| parent | a44a478091416f17ecf47be4b254a742e9593441 (diff) | |
Merge PR #12116: Fixing #12045: missing normalization in conclusion of custom induction scheme
Reviewed-by: ppedrot
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tactics.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index c79aca3d3c..8c4400a80f 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -4499,7 +4499,7 @@ let check_expected_type env sigma (elimc,bl) elimt = if n == 0 then error "Scheme cannot be applied."; let sigma,cl = make_evar_clause env sigma ~len:(n - 1) elimt in let sigma = solve_evar_clause env sigma true cl bl in - let (_,u,_) = destProd sigma cl.cl_concl in + let (_,u,_) = destProd sigma (whd_all env sigma cl.cl_concl) in fun t -> match Evarconv.unify_leq_delay env sigma t u with | _sigma -> true | exception Evarconv.UnableToUnify _ -> false |