helm/software/lambda-delta/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 type id = string (* identifier *)
  13
  14 type qid = id * bool * id list (* qualified identifier: name, local?, path *)
  15
  16 type term = Sort of bool              (* sorts: true = TYPE, false = PROP *)
  17           | GRef of qid * term list   (* reference: name, arguments *)
  18           | Appl of term * term       (* application: argument, function *)
  19           | Abst of id * term * term  (* abstraction: name, domain, scope *)
  20
  21 type entity = Section of (bool * id) option  (* section: Some true = open, Some false = reopen, None = close last *)
  22             | Context of qid option          (* context: Some = last node, None = root *)
  23             | Block of id * term             (* block opener: name, domain *)
  24             | Decl of id * term              (* declaration: name, domain *)
  25             | Def of id * term * bool * term (* definition: name, domain, transparent?, body *)