diff --git a/.ci/Jenkinsfile b/.ci/Jenkinsfile index 6b45e45..ff7a320 100644 --- a/.ci/Jenkinsfile +++ b/.ci/Jenkinsfile @@ -3,7 +3,7 @@ pipeline { stages { stage('Build') { steps { - sh 'docker run -v $PWD/Core_DOM:/Core_DOM logicalhacking:isabelle2018 isabelle build -D /Core_DOM' + sh 'docker run -v $PWD/Core_DOM:/Core_DOM logicalhacking:isabelle2019 isabelle build -D /Core_DOM' } } } diff --git a/Core_DOM/ROOT b/Core_DOM/ROOT index 798cf8e..414b196 100644 --- a/Core_DOM/ROOT +++ b/Core_DOM/ROOT @@ -1,7 +1,7 @@ chapter AFP session "Core_DOM-devel" (AFP) = "HOL-Library" + - options [timeout = 600] + options [timeout = 1200] theories Core_DOM Core_DOM_Tests diff --git a/Core_DOM/monads/CharacterDataMonad.thy b/Core_DOM/monads/CharacterDataMonad.thy index 4506a2a..9811731 100644 --- a/Core_DOM/monads/CharacterDataMonad.thy +++ b/Core_DOM/monads/CharacterDataMonad.thy @@ -57,9 +57,10 @@ lemma character_data_ptr_kinds_M_eq: lemma character_data_ptr_kinds_M_reads: "reads (\node_ptr. {preserved (get_M\<^sub>O\<^sub>b\<^sub>j\<^sub>e\<^sub>c\<^sub>t node_ptr RObject.nothing)}) character_data_ptr_kinds_M h h'" using node_ptr_kinds_M_reads - apply(simp add: reads_def node_ptr_kinds_M_defs character_data_ptr_kinds_M_defs - character_data_ptr_kinds_def preserved_def) - by (metis (mono_tags, hide_lams) node_ptr_kinds_small old.unit.exhaust preserved_def) + apply (simp add: reads_def node_ptr_kinds_M_defs character_data_ptr_kinds_M_defs + character_data_ptr_kinds_def preserved_def cong del: image_cong_simp) + apply (metis (mono_tags, hide_lams) node_ptr_kinds_small old.unit.exhaust preserved_def) + done global_interpretation l_dummy defines get_M\<^sub>C\<^sub>h\<^sub>a\<^sub>r\<^sub>a\<^sub>c\<^sub>t\<^sub>e\<^sub>r\<^sub>D\<^sub>a\<^sub>t\<^sub>a = "l_get_M.a_get_M get\<^sub>C\<^sub>h\<^sub>a\<^sub>r\<^sub>a\<^sub>c\<^sub>t\<^sub>e\<^sub>r\<^sub>D\<^sub>a\<^sub>t\<^sub>a" . lemma get_M_is_l_get_M: "l_get_M get\<^sub>C\<^sub>h\<^sub>a\<^sub>r\<^sub>a\<^sub>c\<^sub>t\<^sub>e\<^sub>r\<^sub>D\<^sub>a\<^sub>t\<^sub>a type_wf character_data_ptr_kinds" diff --git a/Core_DOM/monads/DocumentMonad.thy b/Core_DOM/monads/DocumentMonad.thy index 3ed400d..d2d17a5 100644 --- a/Core_DOM/monads/DocumentMonad.thy +++ b/Core_DOM/monads/DocumentMonad.thy @@ -55,10 +55,10 @@ lemma document_ptr_kinds_M_eq: lemma document_ptr_kinds_M_reads: "reads (\object_ptr. {preserved (get_M\<^sub>O\<^sub>b\<^sub>j\<^sub>e\<^sub>c\<^sub>t object_ptr RObject.nothing)}) document_ptr_kinds_M h h'" using object_ptr_kinds_M_reads - - apply(simp add: reads_def object_ptr_kinds_M_defs document_ptr_kinds_M_defs - document_ptr_kinds_def preserved_def) - by (metis (mono_tags, hide_lams) object_ptr_kinds_preserved_small old.unit.exhaust preserved_def) + apply (simp add: reads_def object_ptr_kinds_M_defs document_ptr_kinds_M_defs + document_ptr_kinds_def preserved_def cong del: image_cong_simp) + apply (metis (mono_tags, hide_lams) object_ptr_kinds_preserved_small old.unit.exhaust preserved_def) + done global_interpretation l_dummy defines get_M\<^sub>D\<^sub>o\<^sub>c\<^sub>u\<^sub>m\<^sub>e\<^sub>n\<^sub>t = "l_get_M.a_get_M get\<^sub>D\<^sub>o\<^sub>c\<^sub>u\<^sub>m\<^sub>e\<^sub>n\<^sub>t" . lemma get_M_is_l_get_M: "l_get_M get\<^sub>D\<^sub>o\<^sub>c\<^sub>u\<^sub>m\<^sub>e\<^sub>n\<^sub>t type_wf document_ptr_kinds" diff --git a/Core_DOM/monads/ElementMonad.thy b/Core_DOM/monads/ElementMonad.thy index 89d028c..59fcc71 100644 --- a/Core_DOM/monads/ElementMonad.thy +++ b/Core_DOM/monads/ElementMonad.thy @@ -54,9 +54,10 @@ lemma element_ptr_kinds_M_eq: lemma element_ptr_kinds_M_reads: "reads (\element_ptr. {preserved (get_M\<^sub>O\<^sub>b\<^sub>j\<^sub>e\<^sub>c\<^sub>t element_ptr RObject.nothing)}) element_ptr_kinds_M h h'" - apply(simp add: reads_def node_ptr_kinds_M_defs element_ptr_kinds_M_defs element_ptr_kinds_def - node_ptr_kinds_M_reads preserved_def) - by (metis (mono_tags, hide_lams) node_ptr_kinds_small old.unit.exhaust preserved_def) + apply (simp add: reads_def node_ptr_kinds_M_defs element_ptr_kinds_M_defs element_ptr_kinds_def + node_ptr_kinds_M_reads preserved_def cong del: image_cong_simp) + apply (metis (mono_tags, hide_lams) node_ptr_kinds_small old.unit.exhaust preserved_def) + done global_interpretation l_dummy defines get_M\<^sub>E\<^sub>l\<^sub>e\<^sub>m\<^sub>e\<^sub>n\<^sub>t = "l_get_M.a_get_M get\<^sub>E\<^sub>l\<^sub>e\<^sub>m\<^sub>e\<^sub>n\<^sub>t" . lemma get_M_is_l_get_M: "l_get_M get\<^sub>E\<^sub>l\<^sub>e\<^sub>m\<^sub>e\<^sub>n\<^sub>t type_wf element_ptr_kinds" diff --git a/Core_DOM/monads/NodeMonad.thy b/Core_DOM/monads/NodeMonad.thy index 91a9791..b669f1d 100644 --- a/Core_DOM/monads/NodeMonad.thy +++ b/Core_DOM/monads/NodeMonad.thy @@ -75,9 +75,10 @@ global_interpretation l_get_M\<^sub>N\<^sub>o\<^sub>d\<^sub>e_lemmas type_wf by lemma node_ptr_kinds_M_reads: "reads (\object_ptr. {preserved (get_M\<^sub>O\<^sub>b\<^sub>j\<^sub>e\<^sub>c\<^sub>t object_ptr RObject.nothing)}) node_ptr_kinds_M h h'" using object_ptr_kinds_M_reads - apply(simp add: reads_def node_ptr_kinds_M_defs node_ptr_kinds_def - object_ptr_kinds_M_reads preserved_def) - by (metis (mono_tags, hide_lams) object_ptr_kinds_preserved_small old.unit.exhaust preserved_def) + apply (simp add: reads_def node_ptr_kinds_M_defs node_ptr_kinds_def + object_ptr_kinds_M_reads preserved_def cong del: image_cong_simp) + apply (metis (mono_tags, hide_lams) object_ptr_kinds_preserved_small old.unit.exhaust preserved_def) + done global_interpretation l_put_M type_wf node_ptr_kinds get\<^sub>N\<^sub>o\<^sub>d\<^sub>e put\<^sub>N\<^sub>o\<^sub>d\<^sub>e rewrites "a_get_M = get_M\<^sub>N\<^sub>o\<^sub>d\<^sub>e" diff --git a/Core_DOM/tests/Document-adoptNode.html.orig b/Core_DOM/tests/Document-adoptNode.html.orig deleted file mode 100644 index 584d5d9..0000000 --- a/Core_DOM/tests/Document-adoptNode.html.orig +++ /dev/null @@ -1,50 +0,0 @@ - - -Document.adoptNode - - - -
-x - diff --git a/Core_DOM/tests/Document-getElementById.html.orig b/Core_DOM/tests/Document-getElementById.html.orig deleted file mode 100644 index 1dec4c0..0000000 --- a/Core_DOM/tests/Document-getElementById.html.orig +++ /dev/null @@ -1,350 +0,0 @@ - - -Document.getElementById - - - - - -
- - -
- - -
- - -
-

P

- -
- - -
-
-
-
-
- - - - diff --git a/Core_DOM/tests/Node-insertBefore.html.orig b/Core_DOM/tests/Node-insertBefore.html.orig deleted file mode 100644 index a9fc83b..0000000 --- a/Core_DOM/tests/Node-insertBefore.html.orig +++ /dev/null @@ -1,306 +0,0 @@ - -Node.insertBefore - - -
- diff --git a/Core_DOM/tests/Node-removeChild.html.orig b/Core_DOM/tests/Node-removeChild.html.orig deleted file mode 100644 index fb22583..0000000 --- a/Core_DOM/tests/Node-removeChild.html.orig +++ /dev/null @@ -1,54 +0,0 @@ - -Node.removeChild - - - -
- -