fact: Fixpoint stalN (L : list rZ) (n1 m : nat) {struct m} : rArray vM -> mbDT := fun Ar => match dilemmaN getT n L n n1 Ar with | quatuor Ar2 true L2 T2 => quatuor _ _ _ _ Ar2 true L2 T2 | quatuor Ar2 false L2 T2 => match m with | O => quatuor _ _ _ _ Ar2 false L2 T2 | S m1 => match stalN nil (S n1) m1 Ar2 with | quatuor Ar4 b4 L4 T4 => quatuor _ _ _ _ Ar4 b4 (appendRz L2 L4) (appTrace T2 T4) end end end.