diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2018-02-19 11:12:52 +0100 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2018-02-19 11:12:52 +0100 |
commit | eaff61e0a19fcf6ebc2a9a8ae17327413274c67b (patch) | |
tree | acbbc416ad78bf8520893405c04855c600909576 /plugins/ssr | |
parent | 073b92396a68be30f77c80960a58ca562bb01f49 (diff) | |
parent | 68935660fbfdec2e357e123ed999073ed3b8fc26 (diff) |
Merge PR #6771: [engine] Remove ghost parameter from `Proofview.Goal.t`
Diffstat (limited to 'plugins/ssr')
-rw-r--r-- | plugins/ssr/ssrcommon.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/ssr/ssrcommon.ml b/plugins/ssr/ssrcommon.ml index d25ecee06..9822da1c7 100644 --- a/plugins/ssr/ssrcommon.ml +++ b/plugins/ssr/ssrcommon.ml @@ -1061,7 +1061,7 @@ let () = CLexer.set_keyword_state frozen_lexer ;; (** Basic tactics *) let rec fst_prod red tac = Proofview.Goal.nf_enter begin fun gl -> - let concl = Proofview.Goal.concl (Proofview.Goal.assume gl) in + let concl = Proofview.Goal.concl gl in match EConstr.kind (Proofview.Goal.sigma gl) concl with | Prod (id,_,tgt) | LetIn(id,_,_,tgt) -> tac id | _ -> if red then Tacticals.New.tclZEROMSG (str"No product even after head-reduction.") |