From b00cb9ccbb02e2aa913294887749fff79b0adad5 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 10 Mar 2008 10:22:45 +0000
Subject: Une passe sur l'unification des evars (suite aux commits 10124,
 10125, 10145) - Correction bug des filtres dans define_evar_as_abstraction -
 Nettoyage, documentation et réorganisations diverses

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10650 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 test-suite/success/unification.v | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'test-suite')

diff --git a/test-suite/success/unification.v b/test-suite/success/unification.v
index e31d67d8cd..9de78b138b 100644
--- a/test-suite/success/unification.v
+++ b/test-suite/success/unification.v
@@ -109,3 +109,10 @@ intros.
 apply H0. (* Check that equation ?n[H] = ?n[H] is correctly considered true *)
 reflexivity.
 Qed.
+
+(* An example that failed at some time in early 2008 *)
+(* The "fun t => match ..." used to raise an anomaly instead of an error *)
+
+Ltac f := set (x:=fun t => match t with (f,_) => f 0 end).
+Goal True.
+try f. (* if an error, it is caught *)
-- 
cgit v1.2.3