adbrucker
/
lh-l4v
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Isabelle2018: Extend_Locale update 

The proof method "fact" no longer has access to thms produced by "interpret"
This commit is contained in:
Gerwin Klein 2018-06-21 14:04:45 +02:00
parent ccacaa46fc
commit cb49fa3b4b
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lib/Extend_Locale.thy
View File

@ -67,7 +67,7 @@ val _ =
(Name_Space.parent_path #> Name_Space.add_path (chunkN ^ chunk))
|> Local_Theory.background_theory_result
(Expression.add_locale_cmd binding binding
([((locale_name,Position.none), (("#",false), Expression.Positional []))], []) elems
([((locale_name,Position.none), (("#",false), (Expression.Positional [],[])))], []) elems
##> Local_Theory.exit_global)
||> Local_Theory.restore_background_naming lthy
@ -146,7 +146,15 @@ interpretation Generic
subgoal
proof -
interpret Internal .
show ?thesis by (intro_locales; (unfold_locales, fact)?)
show ?thesis
(* annoyingly, the proof method "fact" no longer has access to facts produced by "interpret" *)
apply (intro_locales; unfold_locales)
apply (rule internal_lemma1)
apply (rule internal_lemma2)
apply (rule internal_lemma4)
apply (rule internal_lemma3)
apply (erule (1) asm_4)
done
qed
done