diff options
| author | Hugo Herbelin | 2014-08-01 15:16:42 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2014-08-01 15:16:42 +0200 |
| commit | 7e67bba64e1b59be2acf5997157bff10581d28f2 (patch) | |
| tree | e3d783954f683ea25b10bebb4e19a1188f75db08 /parsing | |
| parent | 128a297614d1e0fb32e2bbd465d181c5d5b1562c (diff) | |
Continuing (incomplete) cleaning of Inductiveops.
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_xml.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/g_xml.ml4 b/parsing/g_xml.ml4 index 621aab8a03..f639ee7c55 100644 --- a/parsing/g_xml.ml4 +++ b/parsing/g_xml.ml4 @@ -147,7 +147,7 @@ let compute_branches_lengths ind = mip.Declarations.mind_consnrealdecls let compute_inductive_ndecls ind = - snd (Inductiveops.inductive_ndecls ind) + Inductiveops.inductive_nrealdecls ind (* Interpreting constr as a glob_constr *) |