ListMonad ∈ Monad
{ (ProveWfLemma THEN All Reduce THEN Auto) }
1. T : Type
2. m : T List
⊢ concat(map(λx.[x];m)) = m ∈ (T List)