diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-12-19 17:15:49 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-12-19 17:15:49 +0000 |
| commit | 3319ae45b302f17c76dd19ff95c9785d9ba04557 (patch) | |
| tree | c48b466a95276e75711a27051c2f709d9fd6bd14 /interp | |
| parent | bc1168a4aa0a336e9686b57cc29ec562aa379973 (diff) | |
Made the interpretation levels rlevel/glevel/tlevel truly phantom
types so that the type of terms in Genarg can be changed w/o in full
independence of the level.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12599 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/genarg.ml | 6 | ||||
| -rw-r--r-- | interp/genarg.mli | 6 |
2 files changed, 6 insertions, 6 deletions
diff --git a/interp/genarg.ml b/interp/genarg.ml index 091a5c873..65f0433d3 100644 --- a/interp/genarg.ml +++ b/interp/genarg.ml @@ -65,9 +65,9 @@ type 'a generic_argument = argument_type * Obj.t let dyntab = ref ([] : string list) -type rlevel = constr_expr -type glevel = rawconstr_and_expr -type tlevel = open_constr +type rlevel +type glevel +type tlevel type ('a,'b) abstract_argument_type = argument_type diff --git a/interp/genarg.mli b/interp/genarg.mli index 48e5b3c31..ef7c3e864 100644 --- a/interp/genarg.mli +++ b/interp/genarg.mli @@ -114,9 +114,9 @@ ExtraArgType of string '_a '_b out_gen is monomorphic over 'a, hence type-safe *) -type rlevel = constr_expr -type glevel = rawconstr_and_expr -type tlevel = open_constr +type rlevel +type glevel +type tlevel type ('a,'co) abstract_argument_type |