fact: Definition print_hyp (a : Hyp) : t unit := let (A, x, ot) := a in sA <- pretty_print A; sx <- pretty_print x; match ot with | mSome t => st <- pretty_print t; M.print (sx ++ " := " ++ st ++ " : " ++ sA) | mNone => print (sx ++ " : " ++ sA) end.
imports: Strings.String NArith.BinNat Mtac2(Logic Datatypes Logic List Utils MTele Pattern Specif)