fact: Definition sum_code_idpath {x} : sum_code x x := match x return sum_code x x with | inl _ => eq_refl | inr _ => eq_refl end.
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