diff options
| author | herbelin | 2000-06-29 10:50:27 +0000 |
|---|---|---|
| committer | herbelin | 2000-06-29 10:50:27 +0000 |
| commit | eee66457ddfd86c65cc1287b4545f828bf43f2dd (patch) | |
| tree | 6de3973e9c383942f47a372c20614454bcf43e3d /proofs/logic.ml | |
| parent | 124f43b6666a2aca97a3189f970dd76e0851c178 (diff) | |
Rien
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@522 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs/logic.ml')
| -rw-r--r-- | proofs/logic.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/logic.ml b/proofs/logic.ml index 2f59990d65..5f8d7c2f2c 100644 --- a/proofs/logic.ml +++ b/proofs/logic.ml @@ -136,7 +136,7 @@ varaibles only in Application and Case *) let collect_meta_variables c = let rec collrec acc = function | DOP0(Meta mv) -> mv::acc - | DOP2(Cast,c,t) -> collrec acc c + | DOP2(Cast,c,_) -> collrec acc c | DOPN(AppL,cl) -> Array.fold_left collrec acc cl | DOPN(MutCase _,_) as mc -> let (_,p,c,lf) = destCase mc in |