This commit is contained in:
Burkhart Wolff 2021-10-14 20:31:21 +02:00
parent 9b08e92588
commit c14cb31639
2 changed files with 10 additions and 0 deletions

View File

@ -167,6 +167,7 @@ ML\<open> Thy_Header.get_keywords @{theory};(* this looks to be really theory gl
open_monitor*[aaa::M]
section*[test::A]\<open>Test and Validation\<close>
term\<open>Conceptual.M.make\<close>
text\<open>Defining some document elements to be referenced in later on in another theory: \<close>
text*[sdf]\<open> Lorem ipsum @{thm refl}\<close>
text*[ sdfg :: F] \<open> Lorem ipsum @{thm refl}\<close>

View File

@ -45,6 +45,7 @@ value "tag_attribute(M.make undefined_AAA [] ())"
value "ok(M.make 0 [] ())"
(*
value "ok(M.make undefined [] ())"
value "ok(M.make 0 [] undefined)"
*)
@ -55,6 +56,14 @@ value [simp] \<open> M.ok
(undefined::M))
))\<close>
value \<open> M.ok
(Conceptual.M.trace_update (\<lambda>x. [])
(Conceptual.M.tag_attribute_update (\<lambda>x. 0)
(Conceptual.M.ok_update (\<lambda>x. ())
(M.make XX1 XX2 XX3::M))
))\<close>
ML\<open>
fun fac x = if x = 0 then 1 else x * (fac(x -1));