diff options
Diffstat (limited to 'kernel/vconv.ml')
-rw-r--r-- | kernel/vconv.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/vconv.ml b/kernel/vconv.ml index a2c2cc770..5ef84adc7 100644 --- a/kernel/vconv.ml +++ b/kernel/vconv.ml @@ -299,7 +299,7 @@ let constructor_instantiate mind mib params ctyp = let sp = List.rev (Array.to_list params) in substl sp ctyp2 let destApplication t = - try destApplication t + try destApp t with _ -> t,[||] let construct_of_constr_const env tag typ = |