+ another Unicode character sponsored
+ Helena: minor updates
+ Ground: minor updates
let zero = Fin 0
let string_of_value k = function
- | Inf -> ""
+ | Inf -> "-"
| Fin i -> string_of_int i
| Ref (k, i) -> "-" ^ P.string_of_mark k ^ "-" ^ string_of_int i
| Unk -> "-" ^ P.string_of_mark k
IFDEF MANAGER THEN
-let set_manager s = match KS.lowercase s with
+let set_manager s = match KS.lowercase_ascii s with
| "v8" -> G.manager := G.Coq
| "ma2" -> G.manager := G.Matita
| "lp1" -> G.manager := G.LP1
</body>
<body>
<ucs-bronze char="03BB"/>
+ <ucs-bronze char="03C7"/>
<ucs-bronze char="03B4"/>
</body>
lemma exteq_trans (A) (B): Transitive … (exteq A B).
/2 width=1 by exteq_repl/ qed-.
-