diff options
Diffstat (limited to 'kernel/term.ml')
| -rw-r--r-- | kernel/term.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/term.ml b/kernel/term.ml index b4ddbfc8c7..3281154202 100644 --- a/kernel/term.ml +++ b/kernel/term.ml @@ -1401,7 +1401,7 @@ module Hsorts = let hsort = Hsorts.f -let hcons_constr (hcon,hkn,hdir,hname,hident,hstr) = +let hcons_constr (hcon,hkn,hdir,hname,hident) = let hsortscci = Hashcons.simple_hcons hsort hcons1_univ in let hcci = hcons_term (hsortscci,hcon,hkn,hname,hident) in let htcci = Hashcons.simple_hcons Htype.f (hcci,hsortscci) in |