Library hw04_traffic
Section Homework4_Problems.
'Inductive' type means that there are no other cities
except those listed as A,B,C.
Use 'closed world assumption': all cities can be
analyzed by considering just three cases.
Inductive City : Type :=
| A
| B
| C.
Variable Plane : City*City -> Prop.
Variable Rail: City*City -> Prop.
Hypothesis PlaneLinks: forall x y:City, x<>y <-> Plane(x,y).
Hypothesis RailLink1: Rail(A,B).
Hypothesis RailLink2: Rail(B,A).
Hypothesis RailLink3: Rail(B,C).
Hypothesis RailLink4: Rail(C,A).
Hypothesis RailLink5: ~Rail(A,A).
Hypothesis RailLink6: ~Rail(A,C).
Hypothesis RailLink7: ~Rail(B,B).
Hypothesis RailLink8: ~Rail(C,B).
Hypothesis RailLink9: ~Rail(C,C).
Lemma Sample1: forall (x: City), exists (y:City), x<>y.
Proof.
Admitted.
Proof.
Admitted.
Sample Statement 2: There exist two cities that do not have a direct plane link
Lemma Sample2: exists (x:City) (y: City), ~Plane(x,y).
Proof.
Admitted.
Proof.
Admitted.
Sample Statement 3: For any city 'x' there is a city 'y' such that there is rail
link between the two.
Lemma Sample3: forall (x:City), exists (y: City), Rail(x,y).
Proof.
Admitted.
Proof.
Admitted.
Lemma L1: forall (x: City), exists (y: City), (x<>y /\ Plane(x,y)).
Proof.
Admitted.
Proof.
Admitted.
H4.Q5.Lemma2: From any city one can go to any other city in two steps like this: First take a
plane-link and then take a rail-link.
Lemma L2: ~(forall (x:City) (y:City), exists (z:City), (Plane(x,z) /\ Rail(z,y))).
Proof.
Admitted.
Proof.
Admitted.
H4.Q5.Lemma3: From any city one can go to any other city in two steps like this: First take a
plane-link and then take a rail-link.
Lemma L3: ~(forall x y z:City, (Plane(x,z) /\ Plane(z,y) -> Plane(x,y))).
Admitted.
End Homework4_Problems.
Admitted.
End Homework4_Problems.