diff options
Diffstat (limited to 'contrib/cc')
| -rw-r--r-- | contrib/cc/cctac.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/cc/cctac.ml4 b/contrib/cc/cctac.ml4 index 15d10e84c9..9dce63191f 100644 --- a/contrib/cc/cctac.ml4 +++ b/contrib/cc/cctac.ml4 @@ -129,7 +129,7 @@ let build_projection intype outtype (cstr:constructor) special default gls= try destApplication intype with Invalid_argument _ -> (intype,[||]) in let ind=destInd h in - let types=Inductive.arities_of_constructors env ind in + let types=Inductiveops.arities_of_constructors env ind in let lp=Array.length types in let ci=(snd cstr)-1 in let branch i= |