dsimp at mt
case mk.cons.heap.nil.mk
α : Type u_1
le : α → α → Bool
not_le_le : ∀ (x y : α), ¬le x y = true → le y x = true
le_trans : ∀ (x y z : α), le x y = true → le y z = true → le x z = true
le_rfl : ∀ (z : α), le z z = true
val : α
rank : ℕ
nodes : List (HeapNodeAux α (Heap α))
mt :
  IsMinTree le { val := val, rank := rank, children := Heap.heap nodes }.val
    (Heap.nodes { val := val, rank := rank, children := Heap.heap nodes }.children)
⊢ IsMinHeap le (Heap.heap nodes)
case mk.cons.heap.nil.mk
α : Type u_1
le : α → α → Bool
not_le_le : ∀ (x y : α), ¬le x y = true → le y x = true
le_trans : ∀ (x y z : α), le x y = true → le y z = true → le x z = true
le_rfl : ∀ (z : α), le z z = true
val : α
rank : ℕ
nodes : List (HeapNodeAux α (Heap α))
mt : IsMinTree le val nodes
⊢ IsMinHeap le (Heap.heap nodes)