diff options
-rw-r--r-- | kernel/term_typing.ml | 2 | ||||
-rw-r--r-- | lib/control.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/kernel/term_typing.ml b/kernel/term_typing.ml index 437f7b832..f38ad4742 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") diff --git a/lib/control.ml b/lib/control.ml index 40ffa17b1..67d5a9b4e 100644 --- a/lib/control.ml +++ b/lib/control.ml @@ -60,7 +60,7 @@ let windows_timeout n f e = done in let init = Unix.time () in - let id = Thread.create thread init in + let _id = Thread.create thread init in try let res = f () in let () = killed := true in |