revert S
D : DimList
S : List ℕ
Hknown : known D = true
⊢ shapeRefines S D = true → D = List.map Dimension.Known S
D : DimList
Hknown : known D = true
⊢ ∀ {S : List ℕ}, shapeRefines S D = true → D = List.map Dimension.Known S