fact: Definition dilemma1RRL (f : list rZ -> rArray vM -> mbDT) (Lt : list rZ) (n : nat) (Ar : rArray vM) : mbDT := match doTripletsN getT Lt n Ar with | quatuor Ar1 true L1 T1 => quatuor _ _ _ _ Ar1 true L1 T1 | quatuor Ar1 false L1 T1 => match dilemma1RR f n Ar1 with | quatuor Ar2 b L2 T2 => quatuor _ _ _ _ Ar2 b (appendRz L1 L2) (appTrace T1 T2) end end.