module JonesTraceWritheConfirm where
open import Cubical.Foundations.Prelude
open import Cubical.HITs.S¹
open import Cubical.HITs.Interval
open import Cubical.Data.Nat
open import Cubical.Algebra.Group
-- HIT for framed knot with writhe and Jones trace path induction
data FramedKnot (A : Type) : Type where
base : A → FramedKnot A
trace : (x : A) → base x ≡ base x -- Jones trace loop
writhe : (x : A) (n : ℤ) → trace x ≡ trace x -- writhe twist (framing)
coh : (x : A) → writhe x 0 ≡ refl -- writhe 0 trivial
hit2 : (x : A) (p : trace x ≡ trace x) → -- cubical 2-path for coherence
Square p (writhe x 1) (writhe x (-1)) refl
-- Path induction over absolute flow (existing framework extension)
AbsoluteFlowPathInduction : (P : FramedKnot A → Type)
→ ((x : A) → P (base x))
→ ((x : A) (p : trace x ≡ trace x) → PathP (λ i → P (trace x i)) (baseP x) (baseP x))
→ (k : FramedKnot A) → P k
AbsoluteFlowPathInduction P base* trace* (base x) = base* x
AbsoluteFlowPathInduction P base* trace* (trace x i) = trace* x i
-- ... full HIT eliminator barcode sealing at E_∞ colimit
-- Barcode 101(001)|xxy seal at singularity (deterministic)
BarcodeSeal : Type
BarcodeSeal = Σ[ n ∈ ℕ ] (n ≡ 101) × (n ≡ 001) -- xxy confirmed
Faithful adaptation & this Shld’ve been an intro of Hole to the world instead of that shitty ⛄️movie (& ‘hit2’)! He looked more like Jo nesbo tho lol! Tom Waaler was menacing! Decent slow burn. Book lo difficult to guess Deentlo I think somewt easy?subplots expanded. Binge watch
Major ki positive review e ichadu barbell if I'm not not. Hit2 peddha lavda movie dhani gurinchi discuss chesi kooda waste kani were you seriously expecting a positive review for dacoit? Aa ai editing chesina erripuk movie ki 2 star kante ekkuva evadu ivvadu anni musukoni kurcho