intros s Hshape Htype
τ : MLIRTy
⊢ ∀ (s : List ℕ), hasShape empty s = true → ∀ (h : hasType empty τ = true), List.length (flatten empty h) = shapeProd s
τ : MLIRTy
s : List ℕ
Hshape : hasShape empty s = true
Htype : hasType empty τ = true
⊢ List.length (flatten empty Htype) = shapeProd s