src/Tools/isac/MathEngBasic/specification-def.sml
author Walther Neuper <walther.neuper@jku.at>
Thu, 14 May 2020 13:33:47 +0200
changeset 59977 e635534c5f63
child 59985 9aaeab7d38b6
permissions -rw-r--r--
rename Specification -> References, contiued
     1 (* Title:  MathEngBasic/specification-def.sml
     2    Author: Walther Neuper
     3    (c) due to copyright terms
     4 
     5 Required for Ctree definition.
     6 *)
     7 signature SPECIFICATION_DEFINITION =
     8 sig
     9   type T
    10   val empty: T
    11 (* ---- for tests only: shifted from below to remove the Warning "unused" at fun.def. --------- *)
    12   (*NONE*)
    13 (*/-------------------------------------------------------- ! aktivate for Test_Isac BEGIN ---\* )
    14   (*NONE*)
    15 ( *\--- ! aktivate for Test_Isac END ----------------------------------------------------------/*)
    16 
    17 end
    18 
    19 (**)                   
    20 structure Specification_Def(**): SPECIFICATION_DEFINITION(**) =
    21 struct
    22 (**)
    23 
    24 type T =
    25   bool *              (* I_Model.T andalso Pre_Conds.T      *)
    26   Pos.pos_ *          (* model belongs to Problem or Method *)
    27   term *              (* the headline shown on Calc.T       *)
    28   Model_Def.i_model * (* used by I_Model.T                  *)
    29   (Pre_Conds_Def.T) * (* used by Pre_Conds.T                *)
    30   References.T;       (* into Know_Store                    *)
    31 val empty =
    32   (false, Pos.Und, TermC.empty, [Model_Def.i_model_empty], [(false, TermC.empty)], References.empty);
    33 
    34 (**)end(**)