1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
(********
Isabelle/HoTT: Foundational definitions and notation
Feb 2019
This file is the starting point of the Isabelle/HoTT object logic, and contains the basic setup and definitions.
Among other things, it:
* Calls the setup of object-level type inference functionality.
* Defines the universe hierarchy and its governing rules.
* Defines named theorems for later use by proof methods.
********)
theory HoTT_Base
imports Pure
keywords "assume_type" "assume_types" :: thy_decl
begin
section \<open>Terms and typing\<close>
typedecl t \<comment> \<open>Type of object-logic terms (which includes the types)\<close>
judgment has_type :: "[t, t] \<Rightarrow> prop" ("(3_:/ _)")
section \<open>Setup non-core logic functionality\<close>
declare[[eta_contract=false]] \<comment> \<open>Do not eta-contract\<close>
ML \<open>val trace = Attrib.setup_config_bool @{binding "trace"} (K false)\<close>
\<comment> \<open>Context attribute for tracing; use declare[[trace=true]] at any point in a theory to turn on.\<close>
text \<open>Set up type assumption and inference functionality:\<close>
ML_file "util.ML"
ML_file "typing.ML"
ML \<open>
val _ =
let
fun store_typing ctxt = Typing.put_declared_typing o (Syntax.read_prop ctxt)
in
Outer_Syntax.local_theory
@{command_keyword "assume_type"}
"Declare typing assumptions"
(Parse.prop >>
(fn prop => fn lthy => Local_Theory.background_theory (store_typing lthy prop) lthy))
end
val _ =
let
val parser = Parse.and_list (Parse.prop)
fun store_typings ctxt = fold (Typing.put_declared_typing o (Syntax.read_prop ctxt))
in
Outer_Syntax.local_theory
@{command_keyword "assume_types"}
"Declare typing assumptions"
(parser >>
(fn props => fn lthy => Local_Theory.background_theory (store_typings lthy props) lthy))
end
\<close>
section \<open>Universes\<close>
typedecl ord \<comment> \<open>Type of meta-numerals\<close>
axiomatization
O :: ord and
Suc :: "ord \<Rightarrow> ord" and
lt :: "[ord, ord] \<Rightarrow> prop" (infix "<" 999) and
leq :: "[ord, ord] \<Rightarrow> prop" (infix "\<le>" 999)
where
lt_Suc: "n < (Suc n)" and
lt_trans: "\<lbrakk>m1 < m2; m2 < m3\<rbrakk> \<Longrightarrow> m1 < m3" and
leq_min: "O \<le> n"
declare
lt_Suc [intro!]
leq_min [intro!]
lt_trans [intro]
axiomatization
U :: "ord \<Rightarrow> t"
where
U_hierarchy: "i < j \<Longrightarrow> U i: U j" and
U_cumulative: "\<lbrakk>A: U i; i < j\<rbrakk> \<Longrightarrow> A: U j" and
U_cumulative': "\<lbrakk>A: U i; i \<le> j\<rbrakk> \<Longrightarrow> A: U j"
text \<open>
Using method @{method rule} with @{thm U_cumulative} and @{thm U_cumulative'} is unsafe: if applied blindly it will very easily lead to non-termination.
Instead use @{method elim}, or instantiate the rules suitably.
@{thm U_cumulative'} is an alternative rule used by the method @{theory_text cumulativity} in @{file HoTT_Methods.thy}.
\<close>
section \<open>Type families\<close>
abbreviation (input) constraint :: "[t \<Rightarrow> t, t, t] \<Rightarrow> prop" ("(1_:/ _ \<leadsto> _)")
where "f: A \<leadsto> B \<equiv> (\<And>x. x: A \<Longrightarrow> f x: B)"
text \<open>We use the notation @{prop "B: A \<leadsto> U i"} to abbreviate type families.\<close>
section \<open>Named theorems\<close>
named_theorems form
named_theorems comp
named_theorems cong
text \<open>
The named theorems above will be used by proof methods defined in @{file HoTT_Methods.thy}.
@{attribute form} declares type formation rules.
These are mainly used by the \<open>cumulativity\<close> method, which lifts types into higher universes.
@{attribute comp} declares computation rules, which are used by the \<open>compute\<close> method, and may also be passed to invocations of the method \<open>subst\<close> to perform equational rewriting.
@{attribute cong} declares congruence rules, the definitional equality rules of the type theory.
\<close>
(* Todo: Set up the Simplifier! *)
end
|