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/inductive.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/inductive.ml')
-rw-r--r-- | checker/inductive.ml | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/checker/inductive.ml b/checker/inductive.ml index ac9bf415c..9e1524018 100644 --- a/checker/inductive.ml +++ b/checker/inductive.ml @@ -752,16 +752,7 @@ let check_one_fix renv recpos def = | (Ind _ | Construct _) -> List.iter (check_rec_call renv []) l - | Var id -> - begin - match pi2 (lookup_named id renv.env) with - | None -> - List.iter (check_rec_call renv []) l - | Some c -> - try List.iter (check_rec_call renv []) l - with (FixGuardError _) -> - check_rec_call renv stack (applist(c,l)) - end + | Var _ -> anomaly (Pp.str "Section variable in Coqchk !") | Sort _ -> assert (l = []) |