simp [Order.grlex] at ab ba
n : ℕ
a b : Variables n order.GrLex
ab : Order.grlex a b
ba : Order.grlex b a
⊢ a = b
n : ℕ
a b : Variables n order.GrLex
ab :
  if Order.grlex.elem_sum a < Order.grlex.elem_sum b then True
  else if Order.grlex.elem_sum a = Order.grlex.elem_sum b then if Order.lex a b then True else False else False
ba :
  if Order.grlex.elem_sum b < Order.grlex.elem_sum a then True
  else if Order.grlex.elem_sum b = Order.grlex.elem_sum a then if Order.lex b a then True else False else False
⊢ a = b