val inhyp_pos : string
val inbody_pos : string
+type relation =
+ | Eq of int
+ | Le of int
+ | Lt of int
+ | Ge of int
+ | Gt of int
+
type main_position =
- [ `MainConclusion of int option (* Pi depth *)
- | `MainHypothesis of int option (* Pi depth *)
+ [ `MainConclusion of relation option (* Pi depth *)
+ | `MainHypothesis of relation option (* Pi depth *)
]
type position =
val library_obj_tbl: string
val library_name_tbl: string
val library_count_tbl: string
+val library_hits_tbl: string