From 8b55c34c46857932ea3cd8b209d0fd847ad913c7 Mon Sep 17 00:00:00 2001
From: Matthieu Sozeau
Date: Mon, 16 Feb 2015 22:20:27 +0100
Subject: Remove some dead code and add test-suite file.

---
 pretyping/pretyping.ml        |  6 ------
 test-suite/bugs/closed/3703.v | 31 +++++++++++++++++++++++++++++++
 2 files changed, 31 insertions(+), 6 deletions(-)
 create mode 100644 test-suite/bugs/closed/3703.v

diff --git a/pretyping/pretyping.ml b/pretyping/pretyping.ml
index 040792ef53..e3dba232b2 100644
--- a/pretyping/pretyping.ml
+++ b/pretyping/pretyping.ml
@@ -324,12 +324,6 @@ let pretype_id pretype loc env evdref lvar id =
       (* Check if [id] is a section or goal variable *)
       try
 	let (_,_,typ) = lookup_named id env in
-	(* let _ =  *)
-	(*   try  *)
-   	(*     let ctx = Decls.variable_context id in *)
-	(*       evdref := Evd.merge_context_set univ_rigid !evdref ctx; *)
-	(*   with Not_found -> () *)
-	(* in *)
 	  { uj_val  = mkVar id; uj_type = typ }
       with Not_found ->
 	  (* [id] not found, standard error message *)
diff --git a/test-suite/bugs/closed/3703.v b/test-suite/bugs/closed/3703.v
new file mode 100644
index 0000000000..8f7fe0a09f
--- /dev/null
+++ b/test-suite/bugs/closed/3703.v
@@ -0,0 +1,31 @@
+(* File reduced by coq-bug-finder from original input, then from 6746 lines to 4190 lines, then from 29 lines to 18 lines, then fro\
+m 30 lines to 19 lines *)
+(* coqc version trunk (October 2014) compiled on Oct 7 2014 12:42:41 with OCaml 4.01.0
+   coqtop version cagnode16:/afs/csail.mit.edu/u/j/jgross/coq-trunk,trunk (2313bde0116a5916912bebbaca77d291f7b2760a) *)
+Record PreCategory := { identity : forall x, x -> x }.
+Definition set_cat : PreCategory := @Build_PreCategory (fun T x => x).
+Module UnKeyed.
+  Global Unset Keyed Unification.
+  Goal forall (T : Type) (g0 g1 : T) (k : T) (H' : forall x : T, k = @identity set_cat T x),
+         ((fun x : T => x) g0) = ((fun x : T => x) g1).
+    intros T g0 g1 k H'.
+    change (identity _ _) with (fun y : T => y) in H';
+      rewrite <- H' || fail "too early".
+    Undo.
+    rewrite <- H'.
+    admit.
+  Defined.
+End UnKeyed.
+Module Keyed.
+  Global Set Keyed Unification.
+  Declare Equivalent Keys (fun x => _) identity.
+  Goal forall (T : Type) (g0 g1 : T) (k : T) (H' : forall x : T, k = @identity set_cat T x),
+         ((fun x : T => x) g0) = ((fun x : T => x) g1).
+    intros T g0 g1 k H'.
+    change (identity _ _) with (fun y : T => y) in H';
+      rewrite <- H' || fail "too early".
+    Undo.
+    rewrite <- H'.
+    admit.
+  Defined.
+End Keyed.
\ No newline at end of file
-- 
cgit v1.2.3