open quot

variables {A : Type} [s : setoid A] {B : quot s → Prop} (c : ∀ (a : A), B (quot.mk a)) (a : A)
check (quot.ind c ⟦a⟧ : B ⟦a⟧)
check c a
eval (quot.ind c ⟦a⟧ : B ⟦a⟧)