blob: 0bfaddbcc5e4eb711ca12887b91e54e90ae3bdcf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
(* $Id$ *)
open Names
type universe = { u_sp : section_path; u_num : int }
val dummy_univ : universe
val prop_univ : universe
val prop_univ_univ : universe
val prop_univ_univ_univ : universe
|