diff options
author | Josh Chen | 2018-08-18 23:27:25 +0200 |
---|---|---|
committer | Josh Chen | 2018-08-18 23:27:25 +0200 |
commit | 8833cdf99d3128466d85eb88aeb8e340e07e937c (patch) | |
tree | 87094caffe667540ac03cc05e9e1054c04a112d9 /Proj.thy | |
parent | e1be5f97bb2a42b3179bc24b118d69af137f8e5d (diff) |
Reorganize methods
Diffstat (limited to 'Proj.thy')
-rw-r--r-- | Proj.thy | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -24,9 +24,9 @@ unfolding fst_def by (derive lems: assms) lemma fst_comp: assumes "A: U(i)" and "B: A \<longrightarrow> U(i)" and "a: A" and "b: B(a)" shows "fst(<a,b>) \<equiv> a" unfolding fst_def -proof +proof compute show "a: A" and "b: B(a)" by fact+ -qed (simple lems: assms)+ +qed (routine lems: assms)+ lemma snd_type: assumes "\<Sum>x:A. B(x): U(i)" and "p: \<Sum>x:A. B(x)" shows "snd(p): B(fst p)" @@ -46,11 +46,11 @@ qed fact lemma snd_comp: assumes "A: U(i)" and "B: A \<longrightarrow> U(i)" and "a: A" and "b: B(a)" shows "snd(<a,b>) \<equiv> b" unfolding snd_def -proof +proof compute show "\<And>x y. y: B(x) \<Longrightarrow> y: B(x)" . show "a: A" by fact show "b: B(a)" by fact -qed (simple lems: assms) +qed (routine lems: assms) text "Rule attribute declarations:" |