Mercurial Mercurial > hg > nominal2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
More proof
authorCezary Kaliszyk <kaliszyk@in.tum.de>
Thu, 22 Oct 2009 10:45:33 +0200
changeset 151 b4bef5ed8153
parent 150 9802d9613446
child 152 53277fbb2dba
More proof
QuotMain.thy file | annotate | diff | comparison | revisions 
--- a/QuotMain.thy	Thu Oct 22 10:38:00 2009 +0200
+++ b/QuotMain.thy	Thu Oct 22 10:45:33 2009 +0200
@@ -1162,6 +1162,21 @@
 apply (rule FUN_QUOTIENT)
 apply (rule QUOTIENT_fset)
 apply (rule IDENTITY_QUOTIENT)
+apply (simp only: FUN_REL.simps)
+apply (rule allI)
+apply (rule allI)
+apply (rule impI)
+apply (tactic {* instantiate_tac @{thm APPLY_RSP} @{context} 1 *})
+apply (rule QUOTIENT_fset)
+apply (rule IDENTITY_QUOTIENT)
+apply (tactic {* instantiate_tac @{thm REP_ABS_RSP(1)} @{context} 1 *})
+apply (rule FUN_QUOTIENT)
+apply (rule QUOTIENT_fset)
+apply (rule IDENTITY_QUOTIENT)
+apply (simp add: FUN_REL.simps)
+apply (tactic {* instantiate_tac @{thm REP_ABS_RSP(1)} @{context} 1 *})
+apply (rule QUOTIENT_fset)
+apply (assumption)
 sorry
 
 prove list_induct_t: trm
nominal2