diff options
| author |  clrenard <clrenard@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-11-06 13:05:45 +0000 |
|---|---|---|
| committer | clrenard <clrenard@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-11-06 13:05:45 +0000 |
| commit | 22ac53765e6f3d8ee2f05ad5fcdb046fbf4b6baf (patch) | |
| tree | 3c7468e9f0703d9e70b3aea539aaf8a28ec6a0ed /contrib/interface | |
| parent | 8cd83fb8dd41521bbc109d37dd49dd3aae0de373 (diff) | |
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
Diffstat (limited to 'contrib/interface')
| -rw-r--r-- | contrib/interface/showproof.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/interface/showproof.ml b/contrib/interface/showproof.ml index e4d4647f1..dd6f0ef17 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 |