val absurd : Cic.term -> unit
val contradiction : unit -> unit
-val decompose : Cic.term -> unit
+val decompose :
+ uris_choice_callback:
+ ((UriManager.uri * int * (UriManager.uri * Cic.term) list) list ->
+ (UriManager.uri * int * (UriManager.uri * Cic.term) list) list) ->
+ Cic.term -> unit
(*
val decide_equality : unit -> unit