val dangling_identity : Environ.env -> Evd.evar_map -> Evd.evar_map * EConstr.t
val example_sort_app_lambda : unit -> unit
val example_classes : int -> unit
val example_canonical : int -> unit