Section expected_poly_time_theory.
Context `{ept : expected_poly_time_predicate}.

Theorem expected_poly_time_compose_simp :
forall (A B C : nat -> Type)(f1 : forall n, A n -> B n)(f2 : forall n, B n -> C n),
efficient _ f1 ->
efficient _ f2 ->
efficient _ (fun n (a : A n) => f2 n (f1 n a)).