Data.Eq.HT
equating