Definition procedure_family(A : nat -> Type) := forall n, A n.Definition efficiency_predicate := forall (A : nat -> Type), procedure_family A -> Prop.

Theorem expected_poly_time_bvxor_f : forall (A : nat -> Type)(f1 : forall n, A n -> Bvector n)(f2 : forall n, A n -> Bvector n), efficient _ f1 -> efficient _ f2 -> efficient _ (fun n (a : A n) => BVxor n (f1 n a) (f2 n a)).