diff options
| author | Erik Martin-Dorel | 2019-02-25 00:04:44 +0100 |
|---|---|---|
| committer | Erik Martin-Dorel | 2019-04-23 12:54:43 +0200 |
| commit | e22d8f725bae56550fed8cab8640447953cd3a47 (patch) | |
| tree | 4062f01e34656b22d199832e5f1f454d28604b91 /plugins | |
| parent | 1a5a4c9c8cacea6e6ed7ced8766cadb0195655d9 (diff) | |
[ssr] under: generate missing Under subgoal for eq_bigl/eq_big
in the particular case where the side-condition is phrased
(_ : @eqfun bool I P1 P2)
instead of
(_ : forall x : I, P1 x = P2 x)
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/ssr/ssrfwd.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/plugins/ssr/ssrfwd.ml b/plugins/ssr/ssrfwd.ml index 570b5a8c61..491d6cfb33 100644 --- a/plugins/ssr/ssrfwd.ml +++ b/plugins/ssr/ssrfwd.ml @@ -360,6 +360,7 @@ let rec intro_lock names = Proofview.Goal.enter begin fun gl -> | Term.AtomicType _ -> let t = Reductionops.whd_all env sigma c in match EConstr.kind_of_type sigma t with + | Term.ProdType _ -> aux t | Term.AtomicType(hd, args) when Ssrcommon.is_ind_ref sigma hd (Coqlib.lib_ref "core.eq.type") && Array.length args = 3 && is_app_evar sigma args.(2) -> |