From 38ff8d2b59a481ba489400ea194fdd78c6c2d5e1 Mon Sep 17 00:00:00 2001
From: msozeau
Date: Mon, 19 Mar 2007 16:54:25 +0000
Subject: Add a parameter to QuestionMark evar kind to say it can be turned
 into an obligations (even an opaque one). Change cast_type to include the
 converted-to type or nothing in case of a Coerce cast, required much minor
 changes. Various little subtac changes.

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

(limited to 'pretyping/pattern.ml')

diff --git a/pretyping/pattern.ml b/pretyping/pattern.ml
index b0fd76cb76..c3b49b9749 100644
--- a/pretyping/pattern.ml
+++ b/pretyping/pattern.ml
@@ -233,7 +233,7 @@ let rec pat_of_raw metas vars = function
       PSort s
   | RHole _ ->
       PMeta None
-  | RCast (_,c,_,t) ->
+  | RCast (_,c,_) ->
       Options.if_verbose
         Pp.warning "Cast not taken into account in constr pattern";
       pat_of_raw metas vars c
-- 
cgit v1.2.3