aesop (rule_sets [P]) (add norm [Int.zero_of_twice_zero]) (options := { warnOnNonterminal := false })
p q r : ℤ
x : Q
h : ((p, q, r), Q.e) * ((p, q, r), Q.e) = 1
⊢ ((p, q, r), Q.e) = 1
p q r : ℤ
h : ((p + p, q + q, r + r), Q.e) = ((0, 0, 0), Q.e)
fst snd : Fin 2
⊢ ((p, q, r), Q.e) = ((0, 0, 0), Q.e)