diff options
| author | Josh Chen | 2020-07-08 15:54:04 +0200 |
|---|---|---|
| committer | Josh Chen | 2020-07-08 15:54:04 +0200 |
| commit | f0fab6e197510ce0e6d23a669f69de966701d495 (patch) | |
| tree | 7221cbfaeaf723e6529196ce926cae370aad969f /hott | |
| parent | 4f147cba894baa9e372e2b67211140b1a6f7b16c (diff) | |
minor
Diffstat (limited to 'hott')
| -rw-r--r-- | hott/Identity.thy | 4 | ||||
| -rw-r--r-- | hott/Nat.thy | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/hott/Identity.thy b/hott/Identity.thy index 8675134..308e664 100644 --- a/hott/Identity.thy +++ b/hott/Identity.thy @@ -473,7 +473,7 @@ Lemma (derive) right_whisker: have "t \<bullet> refl x = t" by (rule pathcomp_refl) also have ".. = s" by fact also have ".. = s \<bullet> refl x" by (rule pathcomp_refl[symmetric]) - finally show "t \<bullet> refl x = s \<bullet> refl x" by this + finally show "{}" by this qed done @@ -486,7 +486,7 @@ Lemma (derive) left_whisker: have "refl x \<bullet> t = t" by (rule refl_pathcomp) also have ".. = s" by fact also have ".. = refl x \<bullet> s" by (rule refl_pathcomp[symmetric]) - finally show "refl x \<bullet> t = refl x \<bullet> s" by this + finally show "{}" by this qed done diff --git a/hott/Nat.thy b/hott/Nat.thy index 22c1860..50b7996 100644 --- a/hott/Nat.thy +++ b/hott/Nat.thy @@ -151,7 +151,7 @@ Lemma (derive) zero_mul: proof reduce have "0 + 0 * n = 0 + 0 " by (eq ih) refl also have ".. = 0" by reduce refl - finally show "0 + 0 * n = 0" by this + finally show "{}" by this qed done |