let
equal lv1 lv2 = compareLval lv1 lv2