?params:UriManager.uri list -> ?leftno:int -> ?attrs:Cic.attribute list ->
ugraph:CicUniv.universe_graph ->
MatitaTypes.status -> MatitaTypes.status
+
+val add_record_def:
+ CicRecord.record_spec ->
+ MatitaTypes.status -> MatitaTypes.status
val time_travel:
present:MatitaTypes.status -> past:MatitaTypes.status -> unit