lean4-htt/tests/lean/run/eq_cases_on.lean
Leonardo de Moura a8c91aa6fc fix(library/compiler/preprocess): expand eq.cases_on
The code generator was failing to erase eq.cases_on.
2017-02-07 21:19:01 -08:00

7 lines
264 B
Text

import data.vector
def g {n m : nat} (v : vector nat (n + m)) : vector nat (m + n) :=
eq.rec_on (add_comm n m) v -- Worked before
def f {n m : nat} (v : vector nat (n + m)) : vector nat (m + n) :=
eq.cases_on (add_comm n m) v -- eq.cases_on was not being erased