%   ORIGINAL: h4/pair/FST__PAIR__MAP
% Assm: HL_TRUTH: T
% Assm: HL_FALSITY: ~F
% Assm: HL_BOOL_CASES: !t. (t <=> T) \/ (t <=> F)
% Assm: HL_EXT: !f g. (!x. f x = g x) ==> f = g
% Assm: h4/bool/TRUTH: T
% Assm: h4/bool/FORALL__SIMP: !t. (!x. t) <=> t
% Assm: h4/bool/REFL__CLAUSE: !x. x = x <=> T
% Assm: h4/pair/FST0: !y x. h4/pair/FST (h4/pair/_2C x y) = x
% Assm: h4/pair/PAIR__MAP: !p g f. h4/pair/_23_23 f g p = h4/pair/_2C (f (h4/pair/FST p)) (g (h4/pair/SND p))
% Goal: !p g f. h4/pair/FST (h4/pair/_23_23 f g p) = f (h4/pair/FST p)
%   PROCESSED
% Assm [HLu_TRUTH]: T
% Assm [HLu_FALSITY]: ~F
% Assm [HLu_BOOLu_CASES]: !t. (t <=> T) \/ (t <=> F)
% Assm [HLu_EXT]: !f g. (!x. happ f x = happ g x) ==> f = g
% Assm [h4s_bools_TRUTH]: T
% Assm [h4s_bools_FORALLu_u_SIMP]: !t. (!x. t) <=> t
% Assm [h4s_bools_REFLu_u_CLAUSE]: !x. x = x <=> T
% Assm [h4s_pairs_FST0]: !y x. h4/pair/FST (h4/pair/_2C x y) = x
% Assm [h4s_pairs_PAIRu_u_MAP]: !p g f. h4/pair/_23_23 f g p = h4/pair/_2C (happ f (h4/pair/FST p)) (happ g (h4/pair/SND p))
% Goal: !p g f. h4/pair/FST (h4/pair/_23_23 f g p) = happ f (h4/pair/FST p)
fof(aHLu_TRUTH, axiom, p(s(t_bool,t))).
fof(aHLu_FALSITY, axiom, ~ (p(s(t_bool,f0)))).
fof(aHLu_BOOLu_CASES, axiom, ![V_t]: (s(t_bool,V_t) = s(t_bool,t) | s(t_bool,V_t) = s(t_bool,f0))).
fof(aHLu_EXT, axiom, ![TV_Q284498,TV_Q284494]: ![V_f, V_g]: (![V_x]: s(TV_Q284494,happ(s(t_fun(TV_Q284498,TV_Q284494),V_f),s(TV_Q284498,V_x))) = s(TV_Q284494,happ(s(t_fun(TV_Q284498,TV_Q284494),V_g),s(TV_Q284498,V_x))) => s(t_fun(TV_Q284498,TV_Q284494),V_f) = s(t_fun(TV_Q284498,TV_Q284494),V_g))).
fof(ah4s_bools_TRUTH, axiom, p(s(t_bool,t))).
fof(ah4s_bools_FORALLu_u_SIMP, axiom, ![TV_u_27a]: ![V_t]: (![V_x]: p(s(t_bool,V_t)) <=> p(s(t_bool,V_t)))).
fof(ah4s_bools_REFLu_u_CLAUSE, axiom, ![TV_u_27a]: ![V_x]: (s(TV_u_27a,V_x) = s(TV_u_27a,V_x) <=> p(s(t_bool,t)))).
fof(ah4s_pairs_FST0, axiom, ![TV_u_27b,TV_u_27a]: ![V_y, V_x]: s(TV_u_27a,h4s_pairs_fst(s(t_h4s_pairs_prod(TV_u_27a,TV_u_27b),h4s_pairs_u_2c(s(TV_u_27a,V_x),s(TV_u_27b,V_y))))) = s(TV_u_27a,V_x)).
fof(ah4s_pairs_PAIRu_u_MAP, axiom, ![TV_u_27c,TV_u_27d,TV_u_27a,TV_u_27b]: ![V_p, V_g, V_f]: s(t_h4s_pairs_prod(TV_u_27c,TV_u_27d),h4s_pairs_u_23u_23(s(t_fun(TV_u_27a,TV_u_27c),V_f),s(t_fun(TV_u_27b,TV_u_27d),V_g),s(t_h4s_pairs_prod(TV_u_27a,TV_u_27b),V_p))) = s(t_h4s_pairs_prod(TV_u_27c,TV_u_27d),h4s_pairs_u_2c(s(TV_u_27c,happ(s(t_fun(TV_u_27a,TV_u_27c),V_f),s(TV_u_27a,h4s_pairs_fst(s(t_h4s_pairs_prod(TV_u_27a,TV_u_27b),V_p))))),s(TV_u_27d,happ(s(t_fun(TV_u_27b,TV_u_27d),V_g),s(TV_u_27b,h4s_pairs_snd(s(t_h4s_pairs_prod(TV_u_27a,TV_u_27b),V_p)))))))).
fof(ch4s_pairs_FSTu_u_PAIRu_u_MAP, conjecture, ![TV_u_27d,TV_u_27c,TV_u_27a,TV_u_27b]: ![V_p, V_g, V_f]: s(TV_u_27c,h4s_pairs_fst(s(t_h4s_pairs_prod(TV_u_27c,TV_u_27d),h4s_pairs_u_23u_23(s(t_fun(TV_u_27a,TV_u_27c),V_f),s(t_fun(TV_u_27b,TV_u_27d),V_g),s(t_h4s_pairs_prod(TV_u_27a,TV_u_27b),V_p))))) = s(TV_u_27c,happ(s(t_fun(TV_u_27a,TV_u_27c),V_f),s(TV_u_27a,h4s_pairs_fst(s(t_h4s_pairs_prod(TV_u_27a,TV_u_27b),V_p)))))).
