Skip to content

Instantly share code, notes, and snippets.

菜香苑 銀座店
営業時間 日曜 11:00~14:30 16:30〜22:30
03-6264-3677
https://tabelog.com/tokyo/A1301/A130101/13196246/
ヴォメロ (Vomero)
営業時間 日曜 11:30~22:00
050-5869-5049
https://tabelog.com/tokyo/A1301/A130101/13139857/
(** * Subtyping_J :サブタイプ *)
(* * Subtyping *)
(* $Date: 2011-05-07 21:28:52 -0400 (Sat, 07 May 2011) $ *)
Require Export MoreStlc_J.
(* ###################################################### *)
(* * Concepts *)
(** * 概念 *)
Require Export Coq.Init.Nat.
Print div.
Print modulo.
Print nat.
Print divmod.
Eval compute in (divmod 11 2 1 10).
/*
http://docs.oracle.com/javase/specs/jls/se8/html/jls-19.html
  http://www.bottlecaps.de/rr/ui
*/
ClassDeclaration ::= NormalClassDeclaration | EnumDeclaration
NormalClassDeclaration ::= ClassModifier* 'class' Identifier TypeParameters? Superclass? Superinterfaces? ClassBody
ClassModifier ::= Annotation | 'public' |'protected' | 'private' | 'abstract' | 'static' | 'final' | 'strictfp'
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
{
"~c" = ( "insertText:", "→" );
"~C" = ( "insertText:", "⇒" );
"~g" = ( "insertText:", "γ" );
"~G" = ( "insertText:", "Γ" );
"~o" = ( "insertText:", "⊥" );
"~O" = ( "insertText:", "⊤" );
"~d" = ( "insertText:", "⊃" );
"~s" = ( "insertText:", "⊂" );
"~S" = ( "insertText:", "∈" );
Variable A:Set.
Inductive Vec : nat -> Set:=
| VNil : Vec 0
| VCons : forall n, A -> Vec n -> Vec (S n).
Print Vec.
Inductive bool := | true | false.
Inductive bool : Type := |true | false.
Inductive eq A x : A -> Prop := eq_refl : eq A x x.
Inductive or A B : Prop:=
| or_introl : A -> or A B
| or_intror : B -> or A B.
Definition case_bool x : or (eq bool x true) (eq bool x false) :=
match x with