Section MonoTheorems.
Context {Mono: Monotonicity L Gamma prodp}.
Context {e: expr}.

Lemma fold_left_prodp_unfold {LU: LeftUnit L Gamma e prodp}: forall xs,
|-- fold_left prodp xs e <-->
match xs with
| nil => e
| x :: xs0 => fold_left prodp xs0 x
end.