494 lines
14 KiB
Text
494 lines
14 KiB
Text
/-
|
||
Copyright (c) 2014 Microsoft Corporation. All rights reserved.
|
||
Released under Apache 2.0 license as described in the file LICENSE.
|
||
Authors: Leonardo de Moura
|
||
|
||
Basic datatypes
|
||
-/
|
||
prelude
|
||
notation `Prop` := Type.{0}
|
||
notation `Type₁` := Type.{1}
|
||
notation `Type₂` := Type.{2}
|
||
notation `Type₃` := Type.{3}
|
||
|
||
inductive poly_unit.{l} : Type.{l}
|
||
| star : poly_unit
|
||
|
||
inductive unit : Type₁
|
||
| star : unit
|
||
|
||
inductive true : Prop
|
||
| intro : true
|
||
|
||
inductive false : Prop
|
||
|
||
inductive empty : Type₁
|
||
|
||
inductive eq {A : Type} (a : A) : A → Prop
|
||
| refl : eq a
|
||
|
||
inductive heq {A : Type} (a : A) : Π {B : Type}, B → Prop
|
||
| refl : heq a
|
||
|
||
structure prod (A B : Type) :=
|
||
(pr1 : A) (pr2 : B)
|
||
|
||
inductive and (a b : Prop) : Prop
|
||
| intro : a → b → and
|
||
|
||
definition and.elim_left {a b : Prop} (H : and a b) : a :=
|
||
and.rec (λa b, a) H
|
||
|
||
definition and.left := @and.elim_left
|
||
|
||
definition and.elim_right {a b : Prop} (H : and a b) : b :=
|
||
and.rec (λa b, b) H
|
||
|
||
definition and.right := @and.elim_right
|
||
|
||
inductive sum (A B : Type) : Type
|
||
| inl {} : A → sum
|
||
| inr {} : B → sum
|
||
|
||
attribute [reducible]
|
||
definition sum.intro_left {A : Type} (B : Type) (a : A) : sum A B :=
|
||
sum.inl a
|
||
|
||
attribute [reducible]
|
||
definition sum.intro_right (A : Type) {B : Type} (b : B) : sum A B :=
|
||
sum.inr b
|
||
|
||
inductive or (a b : Prop) : Prop
|
||
| inl {} : a → or
|
||
| inr {} : b → or
|
||
|
||
definition or.intro_left {a : Prop} (b : Prop) (Ha : a) : or a b :=
|
||
or.inl Ha
|
||
|
||
definition or.intro_right (a : Prop) {b : Prop} (Hb : b) : or a b :=
|
||
or.inr Hb
|
||
|
||
structure sigma {A : Type} (B : A → Type) :=
|
||
mk :: (pr1 : A) (pr2 : B pr1)
|
||
|
||
-- pos_num and num are two auxiliary datatypes used when parsing numerals such as 13, 0, 26.
|
||
-- The parser will generate the terms (pos (bit1 (bit1 (bit0 one)))), zero, and (pos (bit0 (bit1 (bit1 one)))).
|
||
-- This representation can be coerced in whatever we want (e.g., naturals, integers, reals, etc).
|
||
inductive pos_num : Type
|
||
| one : pos_num
|
||
| bit1 : pos_num → pos_num
|
||
| bit0 : pos_num → pos_num
|
||
|
||
namespace pos_num
|
||
definition succ (a : pos_num) : pos_num :=
|
||
pos_num.rec_on a (bit0 one) (λn r, bit0 r) (λn r, bit1 n)
|
||
end pos_num
|
||
|
||
inductive num : Type
|
||
| zero : num
|
||
| pos : pos_num → num
|
||
|
||
namespace num
|
||
open pos_num
|
||
definition succ (a : num) : num :=
|
||
num.rec_on a (pos one) (λp, pos (succ p))
|
||
end num
|
||
|
||
inductive bool : Type
|
||
| ff : bool
|
||
| tt : bool
|
||
|
||
inductive option (A : Type) : Type
|
||
| none {} : option
|
||
| some : A → option
|
||
|
||
export option (none some)
|
||
export bool (ff tt)
|
||
|
||
inductive list (T : Type) : Type
|
||
| nil {} : list
|
||
| cons : T → list → list
|
||
|
||
inductive nat
|
||
| zero : nat
|
||
| succ : nat → nat
|
||
|
||
/- Declare builtin and reserved notation -/
|
||
|
||
notation `assume` binders `,` r:(scoped f, f) := r
|
||
notation `take` binders `,` r:(scoped f, f) := r
|
||
|
||
structure [class] has_zero (A : Type) := (zero : A)
|
||
structure [class] has_one (A : Type) := (one : A)
|
||
structure [class] has_add (A : Type) := (add : A → A → A)
|
||
structure [class] has_mul (A : Type) := (mul : A → A → A)
|
||
structure [class] has_inv (A : Type) := (inv : A → A)
|
||
structure [class] has_neg (A : Type) := (neg : A → A)
|
||
structure [class] has_sub (A : Type) := (sub : A → A → A)
|
||
structure [class] has_div (A : Type) := (div : A → A → A)
|
||
structure [class] has_dvd (A : Type) := (dvd : A → A → Prop)
|
||
structure [class] has_mod (A : Type) := (mod : A → A → A)
|
||
structure [class] has_le (A : Type) := (le : A → A → Prop)
|
||
structure [class] has_lt (A : Type) := (lt : A → A → Prop)
|
||
structure [class] has_append (A : Type) := (append : A → A → A)
|
||
structure [class] has_andthen(A : Type) := (andthen : A → A → A)
|
||
|
||
definition zero {A : Type} [has_zero A] : A := has_zero.zero A
|
||
definition one {A : Type} [has_one A] : A := has_one.one A
|
||
definition add {A : Type} [has_add A] : A → A → A := has_add.add
|
||
definition mul {A : Type} [has_mul A] : A → A → A := has_mul.mul
|
||
definition sub {A : Type} [has_sub A] : A → A → A := has_sub.sub
|
||
definition div {A : Type} [has_div A] : A → A → A := has_div.div
|
||
definition dvd {A : Type} [has_dvd A] : A → A → Prop := has_dvd.dvd
|
||
definition mod {A : Type} [has_mod A] : A → A → A := has_mod.mod
|
||
definition neg {A : Type} [has_neg A] : A → A := has_neg.neg
|
||
definition inv {A : Type} [has_inv A] : A → A := has_inv.inv
|
||
definition le {A : Type} [has_le A] : A → A → Prop := has_le.le
|
||
definition lt {A : Type} [has_lt A] : A → A → Prop := has_lt.lt
|
||
definition append {A : Type} [has_append A] : A → A → A := has_append.append
|
||
definition andthen {A : Type} [has_andthen A] : A → A → A := has_andthen.andthen
|
||
|
||
attribute [reducible]
|
||
definition ge {A : Type} [s : has_le A] (a b : A) : Prop := le b a
|
||
attribute [reducible]
|
||
definition gt {A : Type} [s : has_lt A] (a b : A) : Prop := lt b a
|
||
definition bit0 {A : Type} [s : has_add A] (a : A) : A := add a a
|
||
definition bit1 {A : Type} [s₁ : has_one A] [s₂ : has_add A] (a : A) : A := add (bit0 a) one
|
||
|
||
attribute [pattern] zero one bit0 bit1 add
|
||
|
||
attribute [instance]
|
||
definition num_has_zero : has_zero num :=
|
||
has_zero.mk num.zero
|
||
|
||
attribute [instance]
|
||
definition num_has_one : has_one num :=
|
||
has_one.mk (num.pos pos_num.one)
|
||
|
||
attribute [instance]
|
||
definition pos_num_has_one : has_one pos_num :=
|
||
has_one.mk (pos_num.one)
|
||
|
||
namespace pos_num
|
||
definition is_one (a : pos_num) : bool :=
|
||
pos_num.rec_on a tt (λn r, ff) (λn r, ff)
|
||
|
||
definition pred (a : pos_num) : pos_num :=
|
||
pos_num.rec_on a one (λn r, bit0 n) (λn r, bool.rec_on (is_one n) (bit1 r) one)
|
||
|
||
definition size (a : pos_num) : pos_num :=
|
||
pos_num.rec_on a one (λn r, succ r) (λn r, succ r)
|
||
|
||
definition add (a b : pos_num) : pos_num :=
|
||
pos_num.rec_on a
|
||
succ
|
||
(λn f b, pos_num.rec_on b
|
||
(succ (bit1 n))
|
||
(λm r, succ (bit1 (f m)))
|
||
(λm r, bit1 (f m)))
|
||
(λn f b, pos_num.rec_on b
|
||
(bit1 n)
|
||
(λm r, bit1 (f m))
|
||
(λm r, bit0 (f m)))
|
||
b
|
||
end pos_num
|
||
|
||
attribute [instance]
|
||
definition pos_num_has_add : has_add pos_num :=
|
||
has_add.mk pos_num.add
|
||
|
||
namespace num
|
||
open pos_num
|
||
|
||
definition add (a b : num) : num :=
|
||
num.rec_on a b (λpa, num.rec_on b (pos pa) (λpb, pos (pos_num.add pa pb)))
|
||
end num
|
||
|
||
attribute [instance]
|
||
definition num_has_add : has_add num :=
|
||
has_add.mk num.add
|
||
|
||
definition std.priority.default : num := 1000
|
||
definition std.priority.max : num := 4294967295
|
||
|
||
namespace nat
|
||
protected definition prio := num.add std.priority.default 100
|
||
|
||
protected definition add (a b : nat) : nat :=
|
||
nat.rec a (λ b₁ r, nat.succ r) b
|
||
|
||
definition of_pos_num (p : pos_num) : nat :=
|
||
pos_num.rec (succ zero) (λ n r, nat.add (nat.add r r) (succ zero)) (λ n r, nat.add r r) p
|
||
|
||
definition of_num (n : num) : nat :=
|
||
num.rec zero (λ p, of_pos_num p) n
|
||
end nat
|
||
|
||
attribute pos_num_has_add pos_num_has_one num_has_zero num_has_one num_has_add
|
||
[instance, priority nat.prio]
|
||
|
||
attribute [instance, priority nat.prio]
|
||
definition nat_has_zero : has_zero nat :=
|
||
has_zero.mk nat.zero
|
||
|
||
attribute [instance, priority nat.prio]
|
||
definition nat_has_one : has_one nat :=
|
||
has_one.mk (nat.succ (nat.zero))
|
||
|
||
attribute [instance, priority nat.prio]
|
||
definition nat_has_add : has_add nat :=
|
||
has_add.mk nat.add
|
||
|
||
/-
|
||
Global declarations of right binding strength
|
||
|
||
If a module reassigns these, it will be incompatible with other modules that adhere to these
|
||
conventions.
|
||
|
||
When hovering over a symbol, use "C-c C-k" to see how to input it.
|
||
-/
|
||
definition std.prec.max : num := 1024 -- the strength of application, identifiers, (, [, etc.
|
||
definition std.prec.arrow : num := 25
|
||
|
||
/-
|
||
The next definition is "max + 10". It can be used e.g. for postfix operations that should
|
||
be stronger than application.
|
||
-/
|
||
|
||
definition std.prec.max_plus :=
|
||
num.succ (num.succ (num.succ (num.succ (num.succ (num.succ (num.succ (num.succ (num.succ
|
||
(num.succ std.prec.max)))))))))
|
||
|
||
/- Logical operations and relations -/
|
||
|
||
reserve prefix `¬`:40
|
||
reserve prefix `~`:40
|
||
reserve infixr ` ∧ `:35
|
||
reserve infixr ` /\ `:35
|
||
reserve infixr ` \/ `:30
|
||
reserve infixr ` ∨ `:30
|
||
reserve infix ` <-> `:20
|
||
reserve infix ` ↔ `:20
|
||
reserve infix ` = `:50
|
||
reserve infix ` ≠ `:50
|
||
reserve infix ` ≈ `:50
|
||
reserve infix ` ~ `:50
|
||
reserve infix ` ≡ `:50
|
||
|
||
reserve infixl ` ⬝ `:75
|
||
reserve infixr ` ▸ `:75
|
||
reserve infixr ` ▹ `:75
|
||
|
||
/- types and type constructors -/
|
||
|
||
reserve infixr ` ⊕ `:30
|
||
reserve infixr ` × `:35
|
||
|
||
/- arithmetic operations -/
|
||
|
||
reserve infixl ` + `:65
|
||
reserve infixl ` - `:65
|
||
reserve infixl ` * `:70
|
||
reserve infixl ` / `:70
|
||
reserve infixl ` % `:70
|
||
reserve prefix `-`:100
|
||
reserve infix ` ^ `:80
|
||
|
||
reserve infixr ` ∘ `:90 -- input with \comp
|
||
reserve postfix `⁻¹`:std.prec.max_plus -- input with \sy or \-1 or \inv
|
||
|
||
reserve infix ` <= `:50
|
||
reserve infix ` ≤ `:50
|
||
reserve infix ` < `:50
|
||
reserve infix ` >= `:50
|
||
reserve infix ` ≥ `:50
|
||
reserve infix ` > `:50
|
||
|
||
/- boolean operations -/
|
||
|
||
reserve infixl ` && `:70
|
||
reserve infixl ` || `:65
|
||
|
||
/- set operations -/
|
||
|
||
reserve infix ` ∈ `:50
|
||
reserve infix ` ∉ `:50
|
||
reserve infixl ` ∩ `:70
|
||
reserve infixl ` ∪ `:65
|
||
reserve infix ` ⊆ `:50
|
||
reserve infix ` ⊇ `:50
|
||
reserve infix ` ' `:75 -- for the image of a set under a function
|
||
reserve infix ` '- `:75 -- for the preimage of a set under a function
|
||
|
||
/- other symbols -/
|
||
|
||
reserve infix ` ∣ `:50
|
||
reserve infixl ` ++ `:65
|
||
reserve infixr ` :: `:67
|
||
reserve infixl `; `:1
|
||
|
||
infix + := add
|
||
infix * := mul
|
||
infix - := sub
|
||
infix / := div
|
||
infix ∣ := dvd
|
||
infix % := mod
|
||
prefix - := neg
|
||
postfix ⁻¹ := inv
|
||
infix <= := le
|
||
infix >= := ge
|
||
infix ≤ := le
|
||
infix ≥ := ge
|
||
infix < := lt
|
||
infix > := gt
|
||
infix ++ := append
|
||
infix ; := andthen
|
||
|
||
/- eq basic support -/
|
||
notation a = b := eq a b
|
||
|
||
attribute [pattern]
|
||
definition rfl {A : Type} {a : A} : a = a := eq.refl a
|
||
|
||
namespace eq
|
||
variables {A : Type}
|
||
variables {a b c a': A}
|
||
|
||
theorem subst {P : A → Prop} (H₁ : a = b) (H₂ : P a) : P b :=
|
||
eq.rec H₂ H₁
|
||
|
||
theorem trans (H₁ : a = b) (H₂ : b = c) : a = c :=
|
||
subst H₂ H₁
|
||
|
||
theorem symm : a = b → b = a :=
|
||
eq.rec (refl a)
|
||
end eq
|
||
|
||
notation H1 ▸ H2 := eq.subst H1 H2
|
||
|
||
attribute eq.subst [subst]
|
||
attribute eq.refl [refl]
|
||
attribute eq.trans [trans]
|
||
attribute eq.symm [symm]
|
||
|
||
/- sizeof -/
|
||
|
||
structure [class] has_sizeof (A : Type) :=
|
||
(sizeof : A → nat)
|
||
|
||
definition sizeof {A : Type} [s : has_sizeof A] : A → nat :=
|
||
has_sizeof.sizeof
|
||
|
||
/-
|
||
Declare sizeof instances and lemmas for types declared before has_sizeof.
|
||
From now on, the inductive compiler will automatically generate sizeof instances and lemmas.
|
||
-/
|
||
|
||
/- Every type `A` has a default has_sizeof instance that just returns 0 for every element of `A` -/
|
||
attribute [instance]
|
||
definition default_has_sizeof (A : Type) : has_sizeof A :=
|
||
has_sizeof.mk (λ a, nat.zero)
|
||
|
||
attribute [simp, defeq]
|
||
definition default_has_sizeof_eq (A : Type) (a : A) : @sizeof A (default_has_sizeof A) a = 0 :=
|
||
rfl
|
||
|
||
attribute [instance]
|
||
definition nat_has_sizeof : has_sizeof nat :=
|
||
has_sizeof.mk (λ a, a)
|
||
|
||
attribute [simp, defeq]
|
||
definition sizeof_nat_eq (a : nat) : sizeof a = a :=
|
||
rfl
|
||
|
||
attribute [instance]
|
||
definition prod_has_sizeof (A B : Type) [has_sizeof A] [has_sizeof B] : has_sizeof (prod A B) :=
|
||
has_sizeof.mk (λ p, prod.cases_on p (λ a b, sizeof a + sizeof b + 1))
|
||
|
||
attribute [simp, defeq]
|
||
definition sizeof_prod_eq {A B : Type} [has_sizeof A] [has_sizeof B] (a : A) (b : B) : sizeof (prod.mk a b) = sizeof a + sizeof b + 1 :=
|
||
rfl
|
||
|
||
attribute [instance]
|
||
definition sum_has_sizeof (A B : Type) [has_sizeof A] [has_sizeof B] : has_sizeof (sum A B) :=
|
||
has_sizeof.mk (λ s, sum.cases_on s (λ a, sizeof a + 1) (λ b, sizeof b + 1))
|
||
|
||
attribute [simp, defeq]
|
||
definition sizeof_sum_eq_left {A B : Type} [has_sizeof A] [has_sizeof B] (a : A) : sizeof (@sum.inl A B a) = sizeof a + 1 :=
|
||
rfl
|
||
|
||
attribute [simp, defeq]
|
||
definition sizeof_sum_eq_right {A B : Type} [has_sizeof A] [has_sizeof B] (b : B) : sizeof (@sum.inr A B b) = sizeof b + 1 :=
|
||
rfl
|
||
|
||
attribute [instance]
|
||
definition sigma_has_sizeof (A : Type) (B : A → Type) [has_sizeof A] [∀ a, has_sizeof (B a)] : has_sizeof (sigma B) :=
|
||
has_sizeof.mk (λ p, sigma.cases_on p (λ a b, sizeof a + sizeof b + 1))
|
||
|
||
attribute [simp, defeq]
|
||
definition sizeof_sigma_eq {A : Type} {B : A → Type} [has_sizeof A] [∀ a, has_sizeof (B a)] (a : A) (b : B a) : sizeof (@sigma.mk A B a b) = sizeof a + sizeof b + 1 :=
|
||
rfl
|
||
|
||
attribute [instance]
|
||
definition unit_has_sizeof : has_sizeof unit :=
|
||
has_sizeof.mk (λ u, 1)
|
||
|
||
attribute [simp, defeq]
|
||
definition sizeof_unit_eq (u : unit) : sizeof u = 1 :=
|
||
rfl
|
||
|
||
attribute [instance]
|
||
definition poly_unit_has_sizeof : has_sizeof poly_unit :=
|
||
has_sizeof.mk (λ u, 1)
|
||
|
||
attribute [simp, defeq]
|
||
definition sizeof_poly_unit_eq (u : poly_unit) : sizeof u = 1 :=
|
||
rfl
|
||
|
||
attribute [instance]
|
||
definition bool_has_sizeof : has_sizeof bool :=
|
||
has_sizeof.mk (λ u, 1)
|
||
|
||
attribute [simp, defeq]
|
||
definition sizeof_bool_eq (b : bool) : sizeof b = 1 :=
|
||
rfl
|
||
|
||
attribute [instance]
|
||
definition pos_num_has_sizeof : has_sizeof pos_num :=
|
||
has_sizeof.mk (λ p, nat.of_pos_num p)
|
||
|
||
attribute [simp, defeq]
|
||
definition sizeof_pos_num_eq (p : pos_num) : sizeof p = nat.of_pos_num p :=
|
||
rfl
|
||
|
||
attribute [instance]
|
||
definition num_has_sizeof : has_sizeof num :=
|
||
has_sizeof.mk (λ p, nat.of_num p)
|
||
|
||
attribute [simp, defeq]
|
||
definition sizeof_num_eq (n : num) : sizeof n = nat.of_num n :=
|
||
rfl
|
||
|
||
attribute [instance]
|
||
definition option_has_sizeof (A : Type) [has_sizeof A] : has_sizeof (option A) :=
|
||
has_sizeof.mk (λ o, option.cases_on o 1 (λ a, sizeof a + 1))
|
||
|
||
attribute [simp, defeq]
|
||
definition sizeof_option_none_eq (A : Type) [has_sizeof A] : sizeof (@none A) = 1 :=
|
||
rfl
|
||
|
||
attribute [simp, defeq]
|
||
definition sizeof_option_some_eq {A : Type} [has_sizeof A] (a : A) : sizeof (some a) = sizeof a + 1 :=
|
||
rfl
|
||
|
||
attribute [instance]
|
||
definition list_has_sizeof (A : Type) [has_sizeof A] : has_sizeof (list A) :=
|
||
has_sizeof.mk (λ l, list.rec_on l 1 (λ a t ih, sizeof a + ih + 1))
|
||
|
||
attribute [simp, defeq]
|
||
definition sizeof_list_nil_eq (A : Type) [has_sizeof A] : sizeof (@list.nil A) = 1 :=
|
||
rfl
|
||
|
||
attribute [simp, defeq]
|
||
definition sizeof_list_cons_eq {A : Type} [has_sizeof A] (a : A) (l : list A) : sizeof (list.cons a l) = sizeof a + sizeof l + 1 :=
|
||
rfl
|