fact: Fixpoint v_get f' (t: v f') n p: tst (f' n) := match t with | v_L _ => lattice.top | v_N _ l m r => match n with | xO n => v_get _ l n p | xI n => v_get _ r n p | xH => m p end end.
imports: lsyntax ordinal lset positives kat gregex syntax