Typy indukcyjne o jednakowym indeksowaniu implikują równe wskaźniki

Miejmy fooindeksowany typ indukcyjny x : X. Parameter X : Type. Inductive foo : X -> Type := | constr : forall (x : X), foo x. Jestem ciekawa, jeśli to foo x = foo ysugeruje x = y. Nie mam pomysłów, jak to udowodnić. Lemma type_equality_implies_index_equality : forall (x y : X), foo x = foo...