fact: Fixpoint eq_can (s : skel) : Can s -> Can s -> Prop := match s as s0 return (Can s0 -> Can s0 -> Prop) with | PROP => eq_cand | PROD s1 s2 => fun C1 C2 : Can (PROD s1 s2) => forall X1 X2 : Can s1, eq_can s1 X1 X2 -> eq_can s1 X1 X1 -> eq_can s1 X2 X2 -> eq_can s2 (C1 X1) (C2 X2) end.
imports: Termes Conv Types Class