fact: Fixpoint nthExprTypePrim {Tl DefaultT} n (l : evalExprTypePrim_list Tl) (default : evalExprTypePrim DefaultT) := match n with | O => match Tl return evalExprTypePrim_list Tl -> evalExprTypePrim (nth O Tl DefaultT) with | nil => fun l' => default | T :: Tl' => fun l' => fst l' end l | S n' => match Tl return evalExprTypePrim_list Tl -> evalExprTypePrim (nth (S n') Tl DefaultT) with | nil => fun l' => default | T :: Tl' => fun l' => nthExprTypePrim n' (snd l') default end l end.
imports: Coq(PrimInt63 Sint63 Floats PArray) Coq(Bool List Reals Lia Lra) Flocq(Core PrimFloat BinarySingleNaN Operations)