LAND_CONV : conv -> conv
# LAND_CONV NUM_ADD_CONV `(2 + 2) + (2 + 2)`;; val it : thm = |- (2 + 2) + 2 + 2 = 4 + 2 + 2