#R #HR #f2 #L1 #L2 #H elim H -L2
[ #L2 #HL12 #b #f #K2 #HLK2 #Hf #f1 #Hf2 elim (HR … HL12 … HLK2 … Hf … Hf2) -HR -Hf -f2 -L2
/3 width=3 by inj, ex2_intro/
#R #HR #f2 #L1 #L2 #H elim H -L2
[ #L2 #HL12 #b #f #K2 #HLK2 #Hf #f1 #Hf2 elim (HR … HL12 … HLK2 … Hf … Hf2) -HR -Hf -f2 -L2
/3 width=3 by inj, ex2_intro/