proposition: Lemma lmaxSpecLen : forall (l : list string), lforall (fun a=> length a <= lmax (map length l)) l.
proof: Proof. introv Hin. assert (LIn (length a) (map length l)) as Hl by (apply in_map_iff; eexists; eauto). simpl. apply lmaxSpec. trivial. Qed.
imports: AssociationList Omega variables String Ascii