diff options
| author | Josh Chen | 2018-07-03 18:57:57 +0200 |
|---|---|---|
| committer | Josh Chen | 2018-07-03 18:57:57 +0200 |
| commit | 7823d59b2d9436f1bf0042fff62ee2bcc4c29ec0 (patch) | |
| tree | e45df70f36abdedfa0e5c2bcaebfb11022b18a41 /scratch.thy | |
| parent | 9ffa5ed2a972db4ae6274a7852de37945a32ab0e (diff) | |
Refactor HoTT_Methods.thy, proved more stuff with new methods.
Diffstat (limited to 'scratch.thy')
| -rw-r--r-- | scratch.thy | 20 |
1 files changed, 2 insertions, 18 deletions
diff --git a/scratch.thy b/scratch.thy index 331b607..b90fd59 100644 --- a/scratch.thy +++ b/scratch.thy @@ -1,24 +1,8 @@ theory scratch - imports IFOL + imports HoTT begin -lemma disj_swap: "P \<or> Q \<Longrightarrow> Q \<or> P" -apply (erule disjE) (* Compare with the less useful \<open>rule disjE\<close> *) - apply (rule disjI2) - apply assumption -apply (rule disjI1) -apply assumption -done - -lemma imp_uncurry: "P \<longrightarrow> (Q \<longrightarrow> R) \<Longrightarrow> P \<and> Q \<longrightarrow> R" -apply (rule impI) -apply (erule conjE) -apply (drule mp) -apply assumption -apply (drule mp) -apply assumption -apply assumption -done +schematic_goal "\<lbrakk>a : A; b : B\<rbrakk> \<Longrightarrow> ?x : A \<times> B" by simple end
\ No newline at end of file |