lean4-htt/tests/lean/run/eqRecursors.lean
Cameron Zwarich 63d123f4be
fix: support Eq.recOn in the new compiler (#8602)
This PR adds support to the new compiler for `Eq.recOn` (which is
supported by the old compiler but missing a test).
2025-06-03 04:45:20 +00:00

4 lines
400 B
Text
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

def castRec {α : Type u} {m n : Nat} (h : m = n) (v : Vector α m) : Vector α n := Eq.rec v h
def castNdrec {α : Type u} {m n : Nat} (h : m = n) (v : Vector α m) : Vector α n := Eq.ndrec v h
def castRecOn {α : Type u} {m n : Nat} (h : m = n) (v : Vector α m) : Vector α n := Eq.recOn h v
def castCasesOn {α : Type u} {m n : Nat} (h : m = n) (v : Vector α m) : Vector α n := Eq.casesOn h v