Definition knot_age1 := K.knot_age1.
End KnotProp2Knot.
Module KnotProp_Lemmas (K:KNOT_PROP).
Module K' := KnotProp2Knot(K.TF)(K).
Module KL := Knot_Lemmas(K').

Lemma unsquash_inj : forall k1 k2,
unsquash k1 = unsquash k2 ->
k1 = k2.