proposition: Lemma id_int_term : forall e t k, int_term t (def_intt e 0) k = t.
proof: Proof. simple induction t; simpl in |- *; intros; auto with coc core arith datatypes. elim (le_gt_dec k n); intros; auto with coc core arith datatypes. rewrite def_intt_id. simpl in |- *; unfold lift in |- *. rewrite lift_ref_ge; auto with coc core arith datatypes. rewrite H; rewrite H0; auto with coc core arith datatypes. rewrite H; rewrite H0; auto with coc core arith datatypes. rewrite H; rewrite H0; auto with coc core arith datatypes. Qed.
imports: Termes Conv Types Class Can Int_term Int_typ Int_stab