PALPHA_CONV : term -> conv
|- (\p.t) = (\q'. t[q'/p])
- PALPHA_CONV (Term `((w:'a,x:'a),(y:'a,z:'a))`) (Term `\((a:'a,b:'a),(c:'a,d:'a)). (f a b c d):'a`); > val it = |- (\((a,b),c,d). f a b c d) = (\((w,x),y,z). f w x y z) : thm
The new bound pair and the old bound pair need not have the same structure.
- PALPHA_CONV (Term `((wx:'a#'a),(y:'a,z:'a))`) (Term `\((a:'a,b:'a),(c:'a,d:'a)). (f a b c d):'a`); > val it = |- (\((a,b),c,d). f a b c d) = (\(wx,y,z). f (FST wx) (SND wx) y z) : thm
- PALPHA_CONV (Term `((wx:'a#'a),(y:'a,z:'a))`) (Term `\((a:'a,b:'a),(c:'a,d:'a)). (f (a,b) c d):'a`); > val it = |- (\((a,b),c,d). f (a,b) c d) = (\(wx,y,z). f wx y z) : thm