intros _ s H
e : TensorElem
⊢ ∀ (a : ℤ) (s : List ℕ), inferredShape (int a) = some s → hasShape (int a) s = true
e : TensorElem
a✝ : ℤ
s : List ℕ
H : inferredShape (int a✝) = some s
⊢ hasShape (int a✝) s = true