AG
Size: a a a
AG
a
ДГ
a
NC
NC
a
NC
NC
s
s
NC
s
a
NC
s
T
s
lemma not_or_ {P Q : Prop} : ¬(P ∨ Q) ↔️ ¬P ∧ ¬Q :=
begin
apply iff.intro,
show ¬(P ∨ Q) → ¬P ∧ ¬Q, {
assume npq: ¬(P ∨ Q),
split,
show ¬P,
{ assume p: P, from npq (or.inl p) },
show ¬Q,
{ assume q: Q, from npq (or.inr q) },
},
show ¬P ∧ ¬Q → ¬(P ∨ Q), {
assume npnq: ¬P ∧ ¬Q,
assume pq: P ∨ Q,
cases pq with p q,
show false, from npnq.1 p,
show false, from npnq.2 q,
}
ends