#[export] Unset Elimination Schemes.
#[export] Set Implicit Arguments.
#[export] Set Primitive Projections.
#[global] Notation "A -> B" := (forall (_ : A), B)
(at level 99, right associativity, B at level 200) .