DEFINITION llt_head_dx()
TYPE =
       a1:A.a2:A.(llt a2 (AHead a1 a2))
BODY =
Show proof