logical-foundations/imp.mli

val negb : bool -> bool

val app : 'a1 list -> 'a1 list -> 'a1 list

val add : int -> int -> int

val mul : int -> int -> int

val sub : int -> int -> int

val eqb : int -> int -> bool

val leb : int -> int -> bool

module Nat :
 sig
  val eqb : int -> int -> bool

  val leb : int -> int -> bool
 end

type positive =
| XI of positive
| XO of positive
| XH

type n =
| N0
| Npos of positive

module Pos :
 sig
  val succ : positive -> positive

  val add : positive -> positive -> positive

  val add_carry : positive -> positive -> positive

  val mul : positive -> positive -> positive

  val iter_op : ('a1 -> 'a1 -> 'a1) -> positive -> 'a1 -> 'a1

  val to_nat : positive -> int
 end

module N :
 sig
  val add : n -> n -> n

  val mul : n -> n -> n

  val to_nat : n -> int
 end

val rev : 'a1 list -> 'a1 list

val map : ('a1 -> 'a2) -> 'a1 list -> 'a2 list

val fold_left : ('a1 -> 'a2 -> 'a1) -> 'a2 list -> 'a1 -> 'a1

val fold_right : ('a2 -> 'a1 -> 'a1) -> 'a1 -> 'a2 list -> 'a1

val forallb : ('a1 -> bool) -> 'a1 list -> bool

val n_of_digits : bool list -> n

val n_of_ascii : char -> n

val nat_of_ascii : char -> int

val string_dec : char list -> char list -> bool

val append : char list -> char list -> char list

val eqb_string : char list -> char list -> bool

type 'a total_map = char list -> 'a

val t_empty : 'a1 -> 'a1 total_map

val t_update : 'a1 total_map -> char list -> 'a1 -> char list -> 'a1

type state = int total_map

type aexp =
| ANum of int
| AId of char list
| APlus of aexp * aexp
| AMinus of aexp * aexp
| AMult of aexp * aexp

type bexp =
| BTrue
| BFalse
| BEq of aexp * aexp
| BLe of aexp * aexp
| BNot of bexp
| BAnd of bexp * bexp

val aeval : state -> aexp -> int

val beval : state -> bexp -> bool

val empty_st : int total_map

type com =
| CSkip
| CAss of char list * aexp
| CSeq of com * com
| CIf of bexp * com * com
| CWhile of bexp * com

val ceval_step : state -> com -> int -> state option

val isWhite : char -> bool

val isLowerAlpha : char -> bool

val isAlpha : char -> bool

val isDigit : char -> bool

type chartype =
| White
| Alpha
| Digit
| Other

val classifyChar : char -> chartype

val list_of_string : char list -> char list

val string_of_list : char list -> char list

type token = char list

val tokenize_helper : chartype -> char list -> char list -> char list list

val tokenize : char list -> char list list

type 'x optionE =
| SomeE of 'x
| NoneE of char list

type 't parser0 = token list -> ('t * token list) optionE

val many_helper :
  'a1 parser0 -> 'a1 list -> int -> token list -> ('a1 list * token list)
  optionE

val many : 'a1 parser0 -> int -> 'a1 list parser0

val firstExpect : token -> 'a1 parser0 -> 'a1 parser0

val expect : token -> unit parser0

val parseIdentifier : token list -> (char list * token list) optionE

val parseNumber : token list -> (int * token list) optionE

val parsePrimaryExp : int -> token list -> (aexp * token list) optionE

val parseProductExp : int -> token list -> (aexp * token list) optionE

val parseSumExp : int -> token list -> (aexp * token list) optionE

val parseAExp : int -> token list -> (aexp * token list) optionE

val parseAtomicExp : int -> token list -> (bexp * token list) optionE

val parseConjunctionExp : int -> token list -> (bexp * token list) optionE

val parseBExp : int -> token list -> (bexp * token list) optionE

val parseSimpleCommand : int -> token list -> (com * token list) optionE

val parseSequencedCommand : int -> token list -> (com * token list) optionE

val bignumber : int

val parse : char list -> com optionE