-- open equiv
constants (A B : Type₀) (f : A ≃ B)
definition foo : A → B := f -- should fail