Mercurial Mercurial > repos > isabelle / 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.
Instantiated rule increasing_chain_adm_lemma in proof of flatstream_adm_lemma
authorberghofe
Wed, 07 May 2008 10:59:53 +0200
changeset 26838 7f7c6a9e083a
parent 26837 535290c908ae
child 26839 1d963bfd4a1b
Instantiated rule increasing_chain_adm_lemma in proof of flatstream_adm_lemma to avoid problems with HO unification.
src/HOLCF/FOCUS/Stream_adm.thy file | annotate | diff | comparison | revisions 
--- a/src/HOLCF/FOCUS/Stream_adm.thy	Wed May 07 10:59:52 2008 +0200
+++ b/src/HOLCF/FOCUS/Stream_adm.thy	Wed May 07 10:59:53 2008 +0200
@@ -36,7 +36,7 @@
   assumes 3: "(!!Y. [| Porder.chain Y; !i. P (Y i); !k. ? j. Fin k < #((Y j)::'a::flat stream)|]
   ==> P(lub (range Y)))"
   shows "P(lub (range Y))"
-apply (rule increasing_chain_adm_lemma [OF 1 2])
+apply (rule increasing_chain_adm_lemma [of _ P, OF 1 2])
 apply (erule 3, assumption)
 apply (erule thin_rl)
 apply (rule allI)
isabelle