helm/software/helena/src/automath/aut.ml

   1 (*
   2     ||M||  This file is part of HELM, an Hypertextual, Electronic
   3     ||A||  Library of Mathematics, developed at the Computer Science
   4     ||T||  Department, University of Bologna, Italy.
   5     ||I||
   6     ||T||  HELM is free software; you can redistribute it and/or
   7     ||A||  modify it under the terms of the GNU General Public License
   8     \   /  version 2 or (at your option) any later version.
   9      \ /   This software is distributed as is, NO WARRANTY.
  10       V_______________________________________________________________ *)
  11
  12 module E = Entity
  13
  14 type id = E.id
  15
  16 type qid = id * bool * id list (* qualified identifier: name, local?, path *)
  17
  18 type term = Sort of bool              (* sorts: true = TYPE, false = PROP *)
  19           | GRef of qid * term list   (* reference: name, arguments *)
  20           | Appl of term * term       (* application: argument, function *)
  21           | Abst of id * term * term  (* abstraction: name, domain, scope *)
  22
  23 type command = Section of (bool * id) option  (* section: Some true = open, Some false = reopen, None = close last *)
  24              | Context of qid option          (* context: Some = last node, None = root *)
  25              | Block of id * term             (* block opener: name, domain *)
  26              | Decl of id * term              (* declaration: name, domain *)
  27              | Def of id * term * bool * term (* definition: name, domain, transparent?, body *)