intuition.
unfold computeHybrid.
inline_first.
comp_skip.
inline_first.
rewrite minus_diag.
unfold forNats.
unfold compMap.
comp_simp.
rewrite app_nil_r.
intuition.
Qed.

(* Specifications: *)
Theorem DistSingle_impl_Mult :
DistMult_Adv _ c1 c2 A1 A2 n <= (n / 1) * (DistSingle_Adv c1 c2 B1 B2).