forked from Isabelle_DOF/Isabelle_DOF
...
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]
|
open_monitor*[aaa::M]
|
||||||
section*[test::A]\<open>Test and Validation\<close>
|
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\<open>Defining some document elements to be referenced in later on in another theory: \<close>
|
||||||
text*[sdf]\<open> Lorem ipsum @{thm refl}\<close>
|
text*[sdf]\<open> Lorem ipsum @{thm refl}\<close>
|
||||||
text*[ sdfg :: F] \<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 0 [] ())"
|
||||||
(*
|
(*
|
||||||
|
value "ok(M.make undefined [] ())"
|
||||||
value "ok(M.make 0 [] undefined)"
|
value "ok(M.make 0 [] undefined)"
|
||||||
*)
|
*)
|
||||||
|
|
||||||
|
@ -55,6 +56,14 @@ value [simp] \<open> M.ok
|
||||||
(undefined::M))
|
(undefined::M))
|
||||||
))\<close>
|
))\<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>
|
ML\<open>
|
||||||
fun fac x = if x = 0 then 1 else x * (fac(x -1));
|
fun fac x = if x = 0 then 1 else x * (fac(x -1));
|
||||||
|
|
Reference in New Issue