diff options
| author | Hugo Herbelin | 2014-06-21 15:35:40 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2014-06-21 16:21:19 +0200 |
| commit | 3758cf9887172ecccb5d2e18e301c6ff1bb1c9f5 (patch) | |
| tree | 6fb7c632ef54ce4a17eaaa766f6a84f0f0deb76c /kernel/term_typing.ml | |
| parent | 14ae5f4534ee5e632d82990e7db76305b9ca9b75 (diff) | |
Less ocaml warnings.
Diffstat (limited to 'kernel/term_typing.ml')
| -rw-r--r-- | kernel/term_typing.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/term_typing.ml b/kernel/term_typing.ml index 437f7b8321..f38ad47420 100644 --- a/kernel/term_typing.ml +++ b/kernel/term_typing.ml @@ -112,7 +112,7 @@ let check_projection env kn inst body = let ctx, m = decompose_lam_assum body in let () = if not (isCase m) then cannot_recognize () in let ci, p, c, b = destCase m in - let (mib, oib as specif) = Inductive.lookup_mind_specif env ci.ci_ind in + let (mib, oib as _specif) = Inductive.lookup_mind_specif env ci.ci_ind in let recinfo = match mib.mind_record with | None -> error ("Trying to declare a primitive projection for a non-record inductive type") |