lemma bridge max lst = List.exists under_threshold lst ==> under_threshold (get_min_range max lst) [@@induct]