Skip to content

Instantly share code, notes, and snippets.

@Janno
Created March 22, 2023 17:59
Show Gist options
  • Save Janno/baa2bcc5cb040d71974a2196e0d73dd9 to your computer and use it in GitHub Desktop.
Save Janno/baa2bcc5cb040d71974a2196e0d73dd9 to your computer and use it in GitHub Desktop.
A slow unification call in an unknown version of Lean
class op {T : Type} := (op_op : T -> T -> T)
instance nat_op : @op nat := op.mk (nat.add)
def tc_op {T:Type} [o : @op T] : T -> T -> T := @op.op_op T o
infixl `#`:50 := tc_op
def mk_evar (n : nat) := n
section test
theorem test {a b c d e f g h j i k l m n o p q r s t u v w: nat} : true :=
begin
have h: (
(a # b # c # d # e # f # g # h # i # j # k # _ # l)
=
(_ # a # b # c # d # e # f # g # h # i # j # k # _ # m)),
refl
end
end test
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment