From e09f3b44bb381854b647a6d9debdeddbfc49177e Mon Sep 17 00:00:00 2001 From: Pierre-Marie Pédrot Date: Sun, 20 Nov 2016 22:16:08 +0100 Subject: Proofview.Goal primitive now return EConstrs. --- plugins/omega/coq_omega.ml | 1 + 1 file changed, 1 insertion(+) (limited to 'plugins/omega/coq_omega.ml') diff --git a/plugins/omega/coq_omega.ml b/plugins/omega/coq_omega.ml index f39549514..72290e681 100644 --- a/plugins/omega/coq_omega.ml +++ b/plugins/omega/coq_omega.ml @@ -1857,6 +1857,7 @@ let destructure_goal = in Tacticals.New.tclTHEN goal_tac destructure_hyps in + let concl = EConstr.Unsafe.to_constr concl in (loop concl) end } -- cgit v1.2.3