From 22ac53765e6f3d8ee2f05ad5fcdb046fbf4b6baf Mon Sep 17 00:00:00 2001
From: clrenard
Date: Tue, 6 Nov 2001 13:05:45 +0000
Subject: Suppression des local_constraints, des ctxtty et du focus.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2163 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/interface/showproof.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'contrib/interface')

diff --git a/contrib/interface/showproof.ml b/contrib/interface/showproof.ml
index e4d4647f1b..dd6f0ef175 100644
--- a/contrib/interface/showproof.ml
+++ b/contrib/interface/showproof.ml
@@ -228,7 +228,7 @@ let old_sign osign sign =
 (* convertit l'arbre de preuve courant en ntree *)
 let  to_nproof sigma osign pf =
   let rec to_nproof_rec sigma osign pf =
-    let {evar_hyps=sign;evar_concl=cl;evar_info=info} = pf.goal in
+    let {evar_hyps=sign;evar_concl=cl} = pf.goal in
     let nsign = new_sign osign sign in 
     let oldsign = old_sign osign sign in 
     match pf.ref with
-- 
cgit v1.2.3