UriManager.uri -> Cic.obj ->
MatitaTypes.status -> MatitaTypes.status
+val add_coercion:
+ MatitaTypes.status -> add_composites:bool -> UriManager.uri ->
+ MatitaTypes.status
+
val time_travel:
present:MatitaTypes.status -> past:MatitaTypes.status -> unit