From 3319ae45b302f17c76dd19ff95c9785d9ba04557 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sat, 19 Dec 2009 17:15:49 +0000
Subject: 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
---
 interp/genarg.ml  | 6 +++---
 interp/genarg.mli | 6 +++---
 2 files changed, 6 insertions(+), 6 deletions(-)

(limited to 'interp')

diff --git a/interp/genarg.ml b/interp/genarg.ml
index 091a5c8731..65f0433d30 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 48e5b3c31b..ef7c3e864e 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
 
-- 
cgit v1.2.3