src/Tools/isac/Interpret/inform.sml
changeset 59281 bcfca6e8b79e
parent 59280 ee5efb0697f6
child 59291 354be0aa3cc5
child 59298 4a57be56d601
equal deleted inserted replaced
59280:ee5efb0697f6 59281:bcfca6e8b79e
    10   type imodel = iitem list
    10   type imodel = iitem list
    11   type icalhd = Ctree.pos' * cterm' * imodel * Ctree.pos_ * spec
    11   type icalhd = Ctree.pos' * cterm' * imodel * Ctree.pos_ * spec
    12   val fetchErrorpatterns : Ctree.tac -> errpatID list
    12   val fetchErrorpatterns : Ctree.tac -> errpatID list
    13   val input_icalhd : Ctree.ctree -> icalhd -> Ctree.ctree * Ctree.ocalhd
    13   val input_icalhd : Ctree.ctree -> icalhd -> Ctree.ctree * Ctree.ocalhd
    14   val inform : Chead.calcstate' -> string -> string * Chead.calcstate'
    14   val inform : Chead.calcstate' -> string -> string * Chead.calcstate'
    15   val find_fillpatterns : Ctree.ctree * Ctree.pos' -> errpatID -> (fillpatID * term * thm * Ctree.subs option) list
    15   val find_fillpatterns : Ctree.state -> errpatID -> (fillpatID * term * thm * Ctree.subs option) list
    16   val is_exactly_equal : Ctree.ctree * Ctree.pos' -> string -> string * Ctree.tac
    16   val is_exactly_equal : Ctree.state -> string -> string * Ctree.tac
    17 
    17 
    18 (*/-------------------------------------------------------- ! aktivate for Test_Isac BEGIN ---\* )
    18 (*/-------------------------------------------------------- ! aktivate for Test_Isac BEGIN ---\* )
    19   val dropwhile' : ('a -> 'b -> bool) -> 'a list -> 'b list -> 'a list * 'b list
    19   val dropwhile' : ('a -> 'b -> bool) -> 'a list -> 'b list -> 'a list * 'b list
    20   val cas_input : term -> (Ctree.ctree * Ctree.ocalhd) option
    20   val cas_input : term -> (Ctree.ctree * Ctree.ocalhd) option
    21   val rev_deriv' : 'a * rule * ('b * 'c) -> 'b * rule * ('a * 'c)
    21   val rev_deriv' : 'a * rule * ('b * 'c) -> 'b * rule * ('a * 'c)
    22   val compare_step : Generate.taci list * Ctree.pos' list * (Ctree.ctree * Ctree.pos') -> term -> string * Chead.calcstate'
    22   val compare_step : Generate.taci list * Ctree.pos' list * (Ctree.state) -> term -> string * Chead.calcstate'
    23   val check_err_patt : term * term -> subst -> errpatID * term -> rls -> errpatID option
    23   val check_err_patt : term * term -> subst -> errpatID * term -> rls -> errpatID option
    24   val concat_deriv : 'a * ((term * term) list -> term * term -> bool) ->
    24   val concat_deriv : 'a * ((term * term) list -> term * term -> bool) ->
    25     rls -> rule list -> term -> term -> bool * (term * rule * (term * term list)) list
    25     rls -> rule list -> term -> term -> bool * (term * rule * (term * term list)) list
    26   val check_error_patterns :
    26   val check_error_patterns :
    27     term * term ->
    27     term * term ->