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