Hola,
Estoy trancado con este ejercicio, trate de probar el siguiente lemma que creo me seria util:
Lemma redMem: forall (l:List) (x a:A), ~(equal x a = true) /\ MemL x (consL a l) -> MemL x l.
Pero siempre quedo estancado en algo asi:
inversion_clear H1.
constructor.
constructor.
apply IHl.
constructor.
apply IHl.
...
Alguna sugerencia de como encar esta ultima prueba o el ejercicio en general?
Gracias de antemano.