2014-12-15 20:05:44 +00:00
|
|
|
|
/-
|
|
|
|
|
Copyright (c) 2014 Microsoft Corporation. All rights reserved.
|
|
|
|
|
Released under Apache 2.0 license as described in the file LICENSE.
|
|
|
|
|
Authors: Leonardo de Moura, Jeremy Avigad
|
2014-12-15 21:13:04 +00:00
|
|
|
|
|
|
|
|
|
Universal and existential quantifiers. See also init.logic.
|
2014-12-15 20:05:44 +00:00
|
|
|
|
-/
|
2015-06-08 06:58:08 +00:00
|
|
|
|
import .connectives
|
2014-09-03 23:00:38 +00:00
|
|
|
|
open inhabited nonempty
|
2014-08-20 02:32:44 +00:00
|
|
|
|
|
2015-07-24 15:56:18 +00:00
|
|
|
|
theorem exists_imp_distrib {A : Type} {B : Prop} {P : A → Prop} : ((∃ a : A, P a) → B) ↔ (∀ a : A, P a → B) :=
|
|
|
|
|
iff.intro (λ e x H, e (exists.intro x H)) Exists.rec
|
|
|
|
|
|
|
|
|
|
theorem forall_iff_not_exists {A : Type} {P : A → Prop} : (¬ ∃ a : A, P a) ↔ ∀ a : A, ¬ P a :=
|
|
|
|
|
exists_imp_distrib
|
|
|
|
|
|
2014-12-15 21:13:04 +00:00
|
|
|
|
theorem not_forall_not_of_exists {A : Type} {p : A → Prop} (H : ∃x, p x) : ¬∀x, ¬p x :=
|
2014-08-01 00:48:51 +00:00
|
|
|
|
assume H1 : ∀x, ¬p x,
|
|
|
|
|
obtain (w : A) (Hw : p w), from H,
|
|
|
|
|
absurd Hw (H1 w)
|
|
|
|
|
|
2014-12-15 21:13:04 +00:00
|
|
|
|
theorem not_exists_not_of_forall {A : Type} {p : A → Prop} (H2 : ∀x, p x) : ¬∃x, ¬p x :=
|
2014-08-01 00:48:51 +00:00
|
|
|
|
assume H1 : ∃x, ¬p x,
|
|
|
|
|
obtain (w : A) (Hw : ¬p w), from H1,
|
|
|
|
|
absurd (H2 w) Hw
|
|
|
|
|
|
2015-07-24 15:56:18 +00:00
|
|
|
|
theorem forall_congr {A : Type} {φ ψ : A → Prop} : (∀x, φ x ↔ ψ x) → ((∀x, φ x) ↔ (∀x, ψ x)) :=
|
|
|
|
|
forall_iff_forall
|
2014-08-04 02:57:29 +00:00
|
|
|
|
|
2015-07-24 15:56:18 +00:00
|
|
|
|
theorem exists_congr {A : Type} {φ ψ : A → Prop} : (∀x, φ x ↔ ψ x) → ((∃x, φ x) ↔ (∃x, ψ x)) :=
|
|
|
|
|
exists_iff_exists
|
2014-08-04 02:57:29 +00:00
|
|
|
|
|
|
|
|
|
theorem forall_true_iff_true (A : Type) : (∀x : A, true) ↔ true :=
|
2015-07-24 15:56:18 +00:00
|
|
|
|
iff_true_intro (λH, trivial)
|
2014-08-04 02:57:29 +00:00
|
|
|
|
|
2014-10-12 20:06:00 +00:00
|
|
|
|
theorem forall_p_iff_p (A : Type) [H : inhabited A] (p : Prop) : (∀x : A, p) ↔ p :=
|
2015-07-24 15:56:18 +00:00
|
|
|
|
iff.intro (inhabited.destruct H) (λHr x, Hr)
|
2014-08-04 02:57:29 +00:00
|
|
|
|
|
2014-10-12 20:06:00 +00:00
|
|
|
|
theorem exists_p_iff_p (A : Type) [H : inhabited A] (p : Prop) : (∃x : A, p) ↔ p :=
|
2015-07-24 15:56:18 +00:00
|
|
|
|
iff.intro (Exists.rec (λx Hp, Hp)) (inhabited.destruct H exists.intro)
|
2014-08-04 02:57:29 +00:00
|
|
|
|
|
2014-12-15 21:13:04 +00:00
|
|
|
|
theorem forall_and_distribute {A : Type} (φ ψ : A → Prop) :
|
|
|
|
|
(∀x, φ x ∧ ψ x) ↔ (∀x, φ x) ∧ (∀x, ψ x) :=
|
2014-09-05 04:25:21 +00:00
|
|
|
|
iff.intro
|
2015-07-24 15:56:18 +00:00
|
|
|
|
(assume H, and.intro (take x, and.left (H x)) (take x, and.right (H x)))
|
|
|
|
|
(assume H x, and.intro (and.left H x) (and.right H x))
|
2014-08-04 02:57:29 +00:00
|
|
|
|
|
2014-12-15 21:13:04 +00:00
|
|
|
|
theorem exists_or_distribute {A : Type} (φ ψ : A → Prop) :
|
|
|
|
|
(∃x, φ x ∨ ψ x) ↔ (∃x, φ x) ∨ (∃x, ψ x) :=
|
2014-09-05 04:25:21 +00:00
|
|
|
|
iff.intro
|
2015-07-24 15:56:18 +00:00
|
|
|
|
(Exists.rec (λx, or.imp !exists.intro !exists.intro))
|
|
|
|
|
(or.rec (exists_imp_exists (λx, or.inl))
|
|
|
|
|
(exists_imp_exists (λx, or.inr)))
|
|
|
|
|
|
2014-12-13 23:48:04 +00:00
|
|
|
|
section
|
|
|
|
|
open decidable eq.ops
|
|
|
|
|
|
|
|
|
|
variables {A : Type} (P : A → Prop) (a : A) [H : decidable (P a)]
|
|
|
|
|
include H
|
|
|
|
|
|
|
|
|
|
definition decidable_forall_eq [instance] : decidable (∀ x, x = a → P x) :=
|
2015-07-24 15:56:18 +00:00
|
|
|
|
if pa : P a then inl (λ x heq, eq.substr heq pa)
|
|
|
|
|
else inr (not.mto (λH, H a rfl) pa)
|
2014-12-13 23:48:04 +00:00
|
|
|
|
|
|
|
|
|
definition decidable_exists_eq [instance] : decidable (∃ x, x = a ∧ P x) :=
|
2015-07-24 15:56:18 +00:00
|
|
|
|
if pa : P a then inl (exists.intro a (and.intro rfl pa))
|
|
|
|
|
else inr (Exists.rec (λh, and.rec (λheq, eq.substr heq pa)))
|
2014-12-13 23:48:04 +00:00
|
|
|
|
end
|
2015-04-05 16:15:21 +00:00
|
|
|
|
|
|
|
|
|
/- exists_unique -/
|
|
|
|
|
|
|
|
|
|
definition exists_unique {A : Type} (p : A → Prop) :=
|
|
|
|
|
∃x, p x ∧ ∀y, p y → y = x
|
|
|
|
|
|
|
|
|
|
notation `∃!` binders `,` r:(scoped P, exists_unique P) := r
|
|
|
|
|
|
|
|
|
|
theorem exists_unique.intro {A : Type} {p : A → Prop} (w : A) (H1 : p w) (H2 : ∀y, p y → y = w) :
|
|
|
|
|
∃!x, p x :=
|
|
|
|
|
exists.intro w (and.intro H1 H2)
|
|
|
|
|
|
|
|
|
|
theorem exists_unique.elim {A : Type} {p : A → Prop} {b : Prop}
|
|
|
|
|
(H2 : ∃!x, p x) (H1 : ∀x, p x → (∀y, p y → y = x) → b) : b :=
|
|
|
|
|
obtain w Hw, from H2,
|
2015-07-24 15:56:18 +00:00
|
|
|
|
H1 w (and.left Hw) (and.right Hw)
|
2015-06-08 06:58:08 +00:00
|
|
|
|
|
|
|
|
|
/- congruences -/
|
|
|
|
|
|
|
|
|
|
section
|
|
|
|
|
variables {A : Type} {p₁ p₂ : A → Prop} (H : ∀x, p₁ x ↔ p₂ x)
|
|
|
|
|
|
|
|
|
|
theorem congr_forall : (∀x, p₁ x) ↔ (∀x, p₂ x) :=
|
2015-07-24 15:56:18 +00:00
|
|
|
|
forall_congr H
|
2015-06-08 06:58:08 +00:00
|
|
|
|
|
|
|
|
|
theorem congr_exists : (∃x, p₁ x) ↔ (∃x, p₂ x) :=
|
2015-07-24 15:56:18 +00:00
|
|
|
|
exists_congr H
|
2015-06-08 06:58:08 +00:00
|
|
|
|
|
|
|
|
|
include H
|
|
|
|
|
theorem congr_exists_unique : (∃!x, p₁ x) ↔ (∃!x, p₂ x) :=
|
2015-07-24 15:56:18 +00:00
|
|
|
|
congr_exists (λx, congr_and (H x) (congr_forall
|
|
|
|
|
(λy, congr_imp (H y) iff.rfl)))
|
2015-06-08 06:58:08 +00:00
|
|
|
|
end
|