Adapt to search_guard, now able to decide late if recursive or corecu…

…rsive.
mattam82 · Apr 11, 2024 · ee07d8d · ee07d8d
1 parent 6010562
commit ee07d8d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/splitting.ml b/src/splitting.ml
@@ -449,7 +449,7 @@ let define_mutual_nested env evd get_prog progs =
     let possible_indexes =
       Array.map3 (compute_possible_guardness_evidences !evd) structargs bodies tys
     in
-    Pretyping.esearch_guard env !evd (Array.to_list possible_indexes)
+    Pretyping.esearch_guard env !evd (false, Array.to_list possible_indexes)
       (names, tys, bodies)
   in
   let declare_fix_fns i (p,prog) =