From 3758cf9887172ecccb5d2e18e301c6ff1bb1c9f5 Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Sat, 21 Jun 2014 15:35:40 +0200
Subject: Less ocaml warnings.

---
 kernel/term_typing.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'kernel')

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")
-- 
cgit v1.2.3