diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-08-23 00:07:36 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-08-23 00:07:36 +0000 |
| commit | c1c73b1a9c5a171c28fef36a5cb7233ec3d135c9 (patch) | |
| tree | 1aacdafbb86db6c87b7b57640cb0fa9426c90d09 | |
| parent | 437ebce4198f3237df1f67d3037e9fa7b06789aa (diff) | |
Fix a small oversight in checker commit 12288.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12289 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | checker/declarations.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/checker/declarations.ml b/checker/declarations.ml index 67f44c4d3..8cbc964f4 100644 --- a/checker/declarations.ml +++ b/checker/declarations.ml @@ -514,8 +514,8 @@ type one_inductive_body = { let val_one_ind = val_tuple "one_inductive_body" [|val_id;val_rctxt;val_ind_arity;val_array val_id;val_array val_constr; - val_int; val_list val_sortfam;val_array val_constr;val_array val_int; - val_wfp; val_int; val_int; no_val|] + val_int;val_int;val_list val_sortfam;val_array val_constr;val_array val_int; + val_wfp;val_int;val_int;no_val|] type mutual_inductive_body = { |