Merge PR #79: Let the kernel assume that a (co-)inductive type is positive.

1 files changed, 1 insertions, 1 deletions

diff --git a/stm/lemmas.ml b/stm/lemmas.ml
index 0a63a3a0fe..b84b1265e0 100644
--- a/stm/lemmas.ml
+++ b/stm/lemmas.ml
@@ -79,7 +79,7 @@ let adjust_guardness_conditions const = function
                     List.fold_left (fun e (_,c,cb,_) -> add c cb e) env l)
                 env (Safe_typing.side_effects_of_private_constants eff) in
               let indexes =
-	        search_guard Loc.ghost env
+                search_guard ~tflags:{Declarations.check_guarded=true} Loc.ghost env
                   possible_indexes fixdecls in
 		(mkFix ((indexes,0),fixdecls), ctx), eff
           | _ -> (body, ctx), eff) }