diff --git a/tests/fin_maps.v b/tests/fin_maps.v
index f3f962331466560dfd904b36d186edc1746f7171..80b00c33c25368bd7cf6721d05a768b775ff0571 100644
--- a/tests/fin_maps.v
+++ b/tests/fin_maps.v
@@ -440,8 +440,13 @@ Fixpoint gtest_imap `{Countable K} (j : K) (t : gtest K) : gtest K :=
   let '(GTest ts) := t in
   GTest (map_imap (λ i t, guard (i = j);; Some (gtest_imap j t)) ts).
 
-(** Test that [map_Forall2] can be used in an inductive definition without
+(** Test that [map_Forall P] and [map_Forall2 P] can be used in an inductive
+definition with a recursive occurence in the predicate/relation [P] without
 bothering the positivity checker. *)
+Inductive gtest_pred `{Countable K} : gtest K → Prop :=
+  | GTest_pred ts :
+     map_Forall (λ _, gtest_pred) ts → gtest_pred (GTest ts).
+
 Inductive gtest_rel `{Countable K} : relation (gtest K) :=
   | GTest_rel ts1 ts2 :
      map_Forall2 (λ _, gtest_rel) ts1 ts2 → gtest_rel (GTest ts1) (GTest ts2).