...
This commit is contained in:
parent
9b08e92588
commit
c14cb31639
|
@ -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>
|
||||
|
|
|
@ -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));
|
||||
|
|
Loading…
Reference in New Issue