diff options
| author | Maxime Dénès | 2018-01-18 18:00:17 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2018-01-18 18:00:17 +0100 |
| commit | 9aa2464375c1515aa64df7dc910e2f324e34c82f (patch) | |
| tree | adae0cab32f7d2fb01c29d74c9dfc7dc93c3bf6f /plugins | |
| parent | f26bf29cfe6fb154400f3a1305b86b34ad88e0e2 (diff) | |
| parent | 7f60ab72facdee620467c0c48c914273f70aa96f (diff) | |
Merge PR #6555: Use let-in aware prod_applist_assum in dtauto and firstorder.
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/firstorder/formula.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/plugins/firstorder/formula.ml b/plugins/firstorder/formula.ml index c55040df03..4c59996aa7 100644 --- a/plugins/firstorder/formula.ml +++ b/plugins/firstorder/formula.ml @@ -55,7 +55,8 @@ let ind_hyps env sigma nevar ind largs = let types= Inductiveops.arities_of_constructors env ind in let myhyps t = let t = EConstr.of_constr t in - let t1=Termops.prod_applist sigma t largs in + let nparam_decls = Context.Rel.length (fst (Global.lookup_inductive (fst ind))).mind_params_ctxt in + let t1=Termops.prod_applist_assum sigma nparam_decls t largs in let t2=snd (decompose_prod_n_assum sigma nevar t1) in fst (decompose_prod_assum sigma t2) in Array.map myhyps types |