fact: Definition sum_encode {x y} (p : x = y) : sum_code x y := eq_rect _ _ sum_code_idpath _ p.
imports: Coq.Lists.List Coq.Lists.SetoidList Coq.Bool.Bool Coq.Arith.PeanoNat Coq.Strings.Ascii Coq.Strings.String Coq.Logic.Eqdep_dec Fiat.Common