blob: 7ec7410ba9664c7ac58a137e0c12d0d20d0d1db3 [file] [edit]
infix:65 " +' " => Add.add
infix:70 " *' " => Mul.mul
infixr:30 " OR " => Or
prefix:40 "NOT " => Not
theorem ex (a b c d : Nat) (p : Prop) : (NOT p OR a = b*'c +' c*'a OR a = b *' c) = (¬ p ∨ a = b*c + c*a ∨ a = b * c) :=
rfl