Initial stub for formalisation
Rewrote has_type fixpoint to an inductive predicate