diff options
Diffstat (limited to 'proofs/pattern.ml')
| -rw-r--r-- | proofs/pattern.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/pattern.ml b/proofs/pattern.ml index 983154c80f..6d3c362d68 100644 --- a/proofs/pattern.ml +++ b/proofs/pattern.ml @@ -221,7 +221,7 @@ let rec pattern_of_constr t = | IsVar id -> PRef (RVar id) | IsSort (Prop c) -> PSort (RProp c) | IsSort (Type _) -> PSort RType - | IsCast (c,t) -> pattern_of_constr c + | IsCast (c,_) -> pattern_of_constr c | IsProd (na,c,b) -> PBinder (BProd,na,pattern_of_constr c,pattern_of_constr b) | IsLambda (na,c,b) -> |