Please imprement categorical product in C or Python like in haskell:

fst :: (A,B) -> A fst (x, _) = x

snd :: (A,B) -> B snd (_, y) = y

f :: C -> A g :: C -> B

delta :: (C -> A) -> (C -> B) -> (C -> (A,B)) delta f g = \x -> (f x, g x)

h :: C -> (A,B) h = delta f g

These codes should make following statements true:

f == fst . h g == snd . h