(A : Type) : Join Bool A <~> Susp A := Build_Equiv _ _ (join_to_susp A) _.
Require Import Basics Types. Require Import Join.Core Join.JoinAssoc Suspension Spaces.Spheres. Require Import WildCat. Require Import Spaces.Nat.Core.