{-# OPTIONS --cubical #-} open import Cubical.Foundations.Prelude public using (_≡_) renaming (_∙_ to _∙₂_) open import Cubical.Data.Equality public using (eqToPath) -- S¹-rec) open import Cubical.HITs.S1 public using () renaming (S¹ to S¹'; rec to S¹-rec) -- cheat data String : Set where