diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-04-15 16:05:05 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-04-15 16:05:05 +0000 |
| commit | 215c4e40280a29546bee30fb35bf95f7fa2186ea (patch) | |
| tree | aba8def7ccbbc2299b99b80f1cff4512303949dd /checker/typeops.ml | |
| parent | 66139b2e1f66b826dd5dbdb8a9ade64a4d5e11c6 (diff) | |
Checker: get rid of code handling section variables
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16401 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'checker/typeops.ml')
| -rw-r--r-- | checker/typeops.ml | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/checker/typeops.ml b/checker/typeops.ml index 7ff99bd93..f22649eb5 100644 --- a/checker/typeops.ml +++ b/checker/typeops.ml @@ -65,12 +65,6 @@ let judge_of_relative env n = with Not_found -> error_unbound_rel env n -(* Type of variables *) -let judge_of_variable env id = - try named_type id env - with Not_found -> - error_unbound_var env id - (* Type of constants *) let type_of_constant_knowing_parameters env t paramtyps = @@ -247,7 +241,7 @@ let rec execute env cstr = | Rel n -> judge_of_relative env n - | Var id -> judge_of_variable env id + | Var _ -> anomaly (Pp.str "Section variable in Coqchk !") | Const c -> judge_of_constant env c |