- }.
-
-interpretation "Pair construction" 'pair x y = (mk_pair ? ? x y).
-
-interpretation "Product" 'product x y = (pair x y).
-
-interpretation "pair pi1" 'pi1 = (fst ? ?).
-interpretation "pair pi2" 'pi2 = (snd ? ?).
-interpretation "pair pi1" 'pi1a x = (fst ? ? x).
-interpretation "pair pi2" 'pi2a x = (snd ? ? x).
-interpretation "pair pi1" 'pi1b x y = (fst ? ? x y).
-interpretation "pair pi2" 'pi2b x y = (snd ? ? x y).