Isabelle_DOF
/
Isabelle_DOF
1
0
Fork 2
Code Issues 1 Pull Requests Releases Wiki Activity

Merge branch 'master' of logicalhacking.com:HOL-OCL/Isabelle_DOF

This commit is contained in:
Achim D. Brucker 2018-05-02 14:06:41 +01:00
parent c73c92783d 83222961a2
commit 9c23dd78a3
2 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
examples/simple/MathExam.thy
View File

@ -4,10 +4,12 @@ begin
open_monitor*[exam::MathExam]
text*[idir::Author, affiliation="''CentraleSupelec''", email="''idir.aitsadoune@centralesupelec.fr''"]
section*[idir::Author, affiliation="''CentraleSupelec''",
email="''idir.aitsadoune@centralesupelec.fr''"]
{*Idir AIT SADOUNE*}
text*[header::Header,examSubject= "algebra", examTitle="''Exam number 1''", date="''02-05-2018''",timeAllowed="90::int"]
subsection*[header::Header,examSubject= "algebra", examTitle="''Exam number 1''",
date="''02-05-2018''", timeAllowed="90::int"]
{*
\begin{itemize}
\item Use black ink or black ball-point pen.
@ -16,7 +18,7 @@ text*[header::Header,examSubject= "algebra", examTitle="''Exam number 1''", dat
\end{itemize}
*}
section*[exo1 :: Exercise, Exercise.content="[q1::Question,q2::Question]"]
subsubsection*[exo1 :: Exercise, Exercise.content="[q1::Question,q2::Question]"]
{*
Here are the first four lines of a number pattern.
\begin{itemize}

14
ontologies/mathex_onto.thy
View File

@ -42,11 +42,11 @@ datatype ContentClass =
doc_class Exam_item =
concerns :: "ContentClass set"
datatype SubQuestion = Item string
type_synonym SubQuestion = string
doc_class Answer_Formal = Exam_item +
step_label :: string
"term" :: "string"
doc_class Answer_Formal_Step = Exam_item +
justification :: string
"term" :: "string"
doc_class Answer_YesNo = Exam_item +
step_label :: string
@ -55,16 +55,16 @@ doc_class Answer_YesNo = Exam_item +
datatype Question_Type =
formal | informal | mixed
doc_class Question = Exam_item +
doc_class Task = Exam_item +
level :: Level
type :: Question_Type
subitems :: "(SubQuestion * (Answer_Formal + Answer_YesNo)list) list"
subitems :: "(SubQuestion * (Answer_Formal_Step list + Answer_YesNo)list) list"
concerns :: "ContentClass set" <= "{examiner,validator,student}"
mark :: int
doc_class Exercise = Exam_item +
content :: "(Question) list"
content :: "(Task) list"
concerns :: "ContentClass set" <= "{examiner,validator,student}"