diff options
| author |  Stephane Glondu <steph@glondu.net> | 2014-07-27 10:02:38 +0200 |
|---|---|---|
| committer | Stephane Glondu <steph@glondu.net> | 2014-07-27 10:02:38 +0200 |
| commit | 420f78b2caeaaddc6fe484565b2d0e49c66888e5 (patch) | |
| tree | 8b5450c5801a1592e0348ad0362f950e7bb958d4 /interp/genarg.ml | |
| parent | d2c5c5e616a6e118291fe1ce9965c731adac03a8 (diff) | |
Imported Upstream version 8.4pl4dfsgupstream/8.4pl4dfsg
Diffstat (limited to 'interp/genarg.ml')
| -rw-r--r-- | interp/genarg.ml | 26 |
1 files changed, 15 insertions, 11 deletions
diff --git a/interp/genarg.ml b/interp/genarg.ml index a9adbe83..41cbcdaf 100644 --- a/interp/genarg.ml +++ b/interp/genarg.ml @@ -1,6 +1,6 @@ (************************************************************************) (* v * The Coq Proof Assistant / The Coq Development Team *) -(* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2012 *) +(* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2014 *) (* \VV/ **************************************************************) (* // * This file is distributed under the terms of the *) (* * GNU Lesser General Public License Version 2.1 *) @@ -32,7 +32,7 @@ type argument_type = | ConstrArgType | ConstrMayEvalArgType | QuantHypArgType - | OpenConstrArgType of bool + | OpenConstrArgType of bool * bool (* casted, TC resolution *) | ConstrWithBindingsArgType | BindingsArgType | RedExprArgType @@ -156,17 +156,21 @@ let rawwit_constr_may_eval = ConstrMayEvalArgType let globwit_constr_may_eval = ConstrMayEvalArgType let wit_constr_may_eval = ConstrMayEvalArgType -let rawwit_open_constr_gen b = OpenConstrArgType b -let globwit_open_constr_gen b = OpenConstrArgType b -let wit_open_constr_gen b = OpenConstrArgType b +let rawwit_open_constr_gen (b1,b2) = OpenConstrArgType (b1,b2) +let globwit_open_constr_gen (b1,b2) = OpenConstrArgType (b1,b2) +let wit_open_constr_gen (b1,b2) = OpenConstrArgType (b1,b2) -let rawwit_open_constr = rawwit_open_constr_gen false -let globwit_open_constr = globwit_open_constr_gen false -let wit_open_constr = wit_open_constr_gen false +let rawwit_open_constr = rawwit_open_constr_gen (false,false) +let globwit_open_constr = globwit_open_constr_gen (false,false) +let wit_open_constr = wit_open_constr_gen (false,false) -let rawwit_casted_open_constr = rawwit_open_constr_gen true -let globwit_casted_open_constr = globwit_open_constr_gen true -let wit_casted_open_constr = wit_open_constr_gen true +let rawwit_casted_open_constr = rawwit_open_constr_gen (true,false) +let globwit_casted_open_constr = globwit_open_constr_gen (true,false) +let wit_casted_open_constr = wit_open_constr_gen (true,false) + +let rawwit_open_constr_wTC = rawwit_open_constr_gen (false,true) +let globwit_open_constr_wTC = globwit_open_constr_gen (false,true) +let wit_open_constr_wTC = wit_open_constr_gen (false,true) let rawwit_constr_with_bindings = ConstrWithBindingsArgType let globwit_constr_with_bindings = ConstrWithBindingsArgType |