From 24e19ef548e827173a67c99ba653718d49cdfa6e Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Wed, 19 Apr 2017 10:38:44 +0200
Subject: Fix bug #5476: Ltac has an inconsistent view of hypotheses.

---
 pretyping/patternops.ml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'pretyping/patternops.ml')

diff --git a/pretyping/patternops.ml b/pretyping/patternops.ml
index 2eff1936f4..b16d044956 100644
--- a/pretyping/patternops.ml
+++ b/pretyping/patternops.ml
@@ -220,6 +220,8 @@ let instantiate_pattern env sigma lvar c =
               ctx
           in
 	  let c = substl inst c in
+	  (** FIXME: Stupid workaround to pattern_of_constr being evar sensitive *)
+	  let c = Evarutil.nf_evar sigma c in
 	  pattern_of_constr env sigma (EConstr.Unsafe.to_constr c)
 	with Not_found (* List.index failed *) ->
 	  let vars =
-- 
cgit v1.2.3