diff options
| author | Josh Chen | 2020-07-21 02:09:44 +0200 |
|---|---|---|
| committer | Josh Chen | 2020-07-21 02:09:44 +0200 |
| commit | 12eed8685674b7d5ff7bc45a44a061e01f99ce5f (patch) | |
| tree | 44b8c1a3f1de9c22e41f583595005bf85681cd8c /hott/More_Nat.thy | |
| parent | 3bcaf5d1c40b513f8e4590f7d38d3eef8393092e (diff) | |
1. Type-checking/inference now more principled, and the implementation is better. 2. Changed most tactics to context tactics.
Diffstat (limited to '')
| -rw-r--r-- | hott/More_Nat.thy | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/hott/More_Nat.thy b/hott/More_Nat.thy index 8177170..59c8d54 100644 --- a/hott/More_Nat.thy +++ b/hott/More_Nat.thy @@ -15,15 +15,15 @@ Lemma (derive) eq: shows "Nat \<rightarrow> Nat \<rightarrow> U O" apply intro focus vars n apply elim \<guillemotright> by (rule TopF) \<comment> \<open>n \<equiv> 0\<close> \<guillemotright> by (rule BotF) \<comment> \<open>n \<equiv> suc _\<close> - \<guillemotright> by (rule U_in_U) + \<guillemotright> by (rule Ui_in_USi) done \<comment> \<open>m \<equiv> suc k\<close> apply intro focus vars k k_eq n apply (elim n) \<guillemotright> by (rule BotF) \<comment> \<open>n \<equiv> 0\<close> \<guillemotright> prems vars l proof - show "k_eq l: U O" by typechk qed - \<guillemotright> by (rule U_in_U) + \<guillemotright> by (rule Ui_in_USi) done - by (rule U_in_U) + by (rule Ui_in_USi) done text \<open> |