Definition f_Sn (k1 : K1.knot) : K2.knot :=
  match K1.unsquash k1 with
    (n, F_p1) => K2.squash (n, f_F' g F_p1)
  end.Definition g_Sn (k2 : K2.knot) : K1.knot :=
  match K2.unsquash k2 with
    (n, F_p2) => K1.squash (n, g_F' f F_p2)
  end.

Lemma fSn_unsquash : forall k1, level k1 <= n + 1 -> forall U1, U1 = K1.unsquash k1 -> K2.unsquash (f_Sn k1) = (fst U1, f_F' (g_Sn) (snd U1)).