fact: Fixpoint find_all_aux (n : state) (g : grid) (st : state) {struct n}: seq grid := if st is (_, p, bs) :: st1 then if n is _ :: n1 then try_all (behead bs) p 1 g st1 (find_all_aux n1) else [::] else [::g].
imports: mathcomp(all_ssreflect) mathcomp(zify)