(* ** BPCP reduces to iBPCP *)
Definition f (P : stack bool) (A : stack bool) := omap (fun x => pos card_eq x P) A.
Definition g (P : stack bool) (A : list nat) := map (fun n => nth n P ( [], [] )) A.

Lemma tau_itau2 P A : (forall a : nat, a el A -> a < | P |) -> tau2 (g P A) = itau2 P A.