+ left. reflexivity.
+ right. left. reflexivity.
+ right. right. left. reflexivity.
Qed.

Lemma solve_strip_1_later_def: forall R,
match R with
| Inj (inr (Data (fnil tympred))) => EAPPLY typ func reify_now_later
| App (App (Inj (inr (Data (fcons tympred)))) hd) tl =>
THEN (EAPPLY typ func reify_hlip_ind)
(THEN (TRY (REFLEXIVITY tbl))
(FIRST [solve_hd_in_hlip hd; solve_strip_1_later tl]))
| _ => FAIL
end =
solve_strip_1_later R.