lean4-htt/old_tests/tests/lean/run/eq_cases_on.lean
2018-04-10 12:56:55 -07:00

5 lines
240 B
Text

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