[ -I -L1 -K2 -U -W -d /3 width=3 by lt_to_le, lt_to_le_to_lt/
| #HLK2 @(frees_be ā¦ HnU HLK2) // -HnU -HLK2 @IHW -IHW
>(minus_plus_m_m (|K2|) 1) >H0 -H0 /2 width=1 by monotonic_le_minus_l2/
[ -I -L1 -K2 -U -W -d /3 width=3 by lt_to_le, lt_to_le_to_lt/
| #HLK2 @(frees_be ā¦ HnU HLK2) // -HnU -HLK2 @IHW -IHW
>(minus_plus_m_m (|K2|) 1) >H0 -H0 /2 width=1 by monotonic_le_minus_l2/