fact: Definition raise {A:Type} (e: Exception): t A := bind get_debug_exceptions (fun b=> if b then bind (pretty_print@{Set} e) (fun s=> bind (print ("raise " ++ s)) (fun _ => raise' e)) else raise' e).
imports: Strings.String NArith.BinNat Mtac2(Logic Datatypes Logic List Utils MTele Pattern Specif)