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