Experiments with the code generator for Isa_DOF class objects.
This commit is contained in:
parent
5f47588270
commit
9b08e92588
|
@ -6,7 +6,7 @@ text\<open>A small example ontology for demonstration purposes.
|
|||
The presentation follows closely: \<^url>\<open>https://www.youtube.com/watch?v=URUJD5NEXC8\<close>.\<close>
|
||||
|
||||
|
||||
datatype protein = filaments | motor_proteins | rna |dna |nucleolus
|
||||
datatype protein = filaments | motor_proteins | rna | dna |nucleolus
|
||||
|
||||
type_synonym desc = "string"
|
||||
|
||||
|
|
|
@ -30,6 +30,30 @@ val {docobj_tab={tab = docitem_tab, ...},docclass_tab, ISA_transformer_tab, moni
|
|||
Symtab.dest docitem_tab;
|
||||
Symtab.dest docclass_tab;
|
||||
\<close>
|
||||
ML\<open>
|
||||
#value(the(the(Symtab.lookup docitem_tab "aaa")))
|
||||
|
||||
\<close>
|
||||
|
||||
find_theorems (60) name:"Conceptual.M."
|
||||
|
||||
value [simp]"trace(M.make undefined [] ())"
|
||||
value "ok(M.make undefined_AAA [] ())"
|
||||
value "trace(M.make undefined_AAA [] ())"
|
||||
value "tag_attribute(M.make undefined_AAA [] ())"
|
||||
|
||||
|
||||
value "ok(M.make 0 [] ())"
|
||||
(*
|
||||
value "ok(M.make 0 [] undefined)"
|
||||
*)
|
||||
|
||||
value [simp] \<open> M.ok
|
||||
(Conceptual.M.trace_update (\<lambda>x. [])
|
||||
(Conceptual.M.tag_attribute_update (\<lambda>x. 0)
|
||||
(Conceptual.M.ok_update (\<lambda>x. ())
|
||||
(undefined::M))
|
||||
))\<close>
|
||||
|
||||
|
||||
ML\<open>
|
||||
|
|
Loading…
Reference in New Issue