theorem mul11 (a: nat): $ 1 * a = a $;
1 * a = a * 1 -> a * 1 = a -> 1 * a = a
1 * a = a * 1
a * 1 = a -> 1 * a = a
a * 1 = a
1 * a = a